Magic squares of odd order: Difference between revisions
Added 11l
(→{{header|C++}}: removed "new" and "delete" (bad style)) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 34:
* MathWorld™ entry: [http://mathworld.wolfram.com/MagicSquare.html Magic_square]
* [http://www.1728.org/magicsq1.htm Odd Magic Squares (1728.org)]<br><br>
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F magic(n)
L(row) 1..n
print(((1..n).map(col -> @n * ((@row + col - 1 + @n I/ 2) % @n)
+ ((@row + 2 * col - 2) % @n) + 1)).map(cell -> String(cell).rjust(String(@n ^ 2).len)).join(‘ ’))
print("\nAll sum to magic number #.".format((n * n + 1) * n I/ 2))
L(n) (5, 3, 7)
print("\nOrder #.\n=======".format(n))
magic(n)</lang>
{{out}}
<pre>
Order 5
=======
17 24 1 8 15
23 5 7 14 16
4 6 13 20 22
10 12 19 21 3
11 18 25 2 9
All sum to magic number 65
Order 3
=======
8 1 6
3 5 7
4 9 2
All sum to magic number 15
Order 7
=======
30 39 48 1 10 19 28
38 47 7 9 18 27 29
46 6 8 17 26 35 37
5 14 16 25 34 36 45
13 15 24 33 42 44 4
21 23 32 41 43 3 12
22 31 40 49 2 11 20
All sum to magic number 175
</pre>
=={{header|360 Assembly}}==
| |||