Rosetta Code

Magic squares of doubly even order: Difference between revisions

Page Discussion

Magic squares of doubly even order (view source)

Revision as of 15:58, 9 December 2016

2 bytes removed ,  7 years ago
m
→‎{{header|PARI/GP}}
Line 329:
 
A magic one-liner:
<lang parigp>magicsquare(n)={matrix(n,n,i,j,k=i+j*n-n;if(bitand(38505,2^((j-1)%4*4+(i-1)%4)),k,n*n+1-k))}</lang>
 
Output:<pre>magicsquare(8)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/265894"