Magic squares of doubly even order: Difference between revisions
→{{header|Visual Basic .NET}}
Line 1,879:
For c = 0 To n - 1
Dim bitPos As Integer = Math.Floor(c / mult) + Math.Floor(r / mult) * 4
Dim test = (bits And (1 << bitPos)) <> 0
If test Then
Line 1,912 ⟶ 1,911:
End Module</lang>
{{out}}
<pre>
9 10 54 53 52 51 15 16
48 47 19 20 21 22 42 41
| |||