Jump to content

Magic squares of doubly even order: Difference between revisions

Doubly even magic squares in J
(Doubly even magic squares in J)
Line 794:
 
(2056,True)</pre>
 
=={{header|J}}==
<lang J>
mask =: ,#: 8 $ 153 102 102 153
t =: (, 65&-) each >:i.64
8 8 $ mask{each t
</lang>
{{Out}}
<pre>
┌──┬──┬──┬──┬──┬──┬──┬──┐
│64│2 │3 │61│60│6 │7 │57│
├──┼──┼──┼──┼──┼──┼──┼──┤
│9 │55│54│12│13│51│50│16│
├──┼──┼──┼──┼──┼──┼──┼──┤
│17│47│46│20│21│43│42│24│
├──┼──┼──┼──┼──┼──┼──┼──┤
│40│26│27│37│36│30│31│33│
├──┼──┼──┼──┼──┼──┼──┼──┤
│32│34│35│29│28│38│39│25│
├──┼──┼──┼──┼──┼──┼──┼──┤
│41│23│22│44│45│19│18│48│
├──┼──┼──┼──┼──┼──┼──┼──┤
│49│15│14│52│53│11│10│56│
├──┼──┼──┼──┼──┼──┼──┼──┤
│8 │58│59│5 │4 │62│63│1 │
└──┴──┴──┴──┴──┴──┴──┴──┘
</pre>
 
=={{header|Java}}==
Cookies help us deliver our services. By using our services, you agree to our use of cookies.