Magic squares of doubly even order: Difference between revisions
m
→{{header|VBScript}}: Shorter version
PatGarrett (talk | contribs) m (→{{header|VBScript}}: Superfluous blanks suppressed) |
PatGarrett (talk | contribs) m (→{{header|VBScript}}: Shorter version) |
||
Line 1,229:
i=0
For r=0 To n-1
For c=0 To n-1
bit=Mid(pattern, c\mult+(r\mult)*4+1, 1)
If bit="1" Then t=i+1 Else t=size-i
i=i+1
Next 'c
wscript.echo
Next 'r
wscript.echo "Magic constant=" & (n*n+1)*n/2</lang>
|