Magic squares of odd order: Difference between revisions
Added Easylang
m (→{{header|Sidef}}: updated code) |
(Added Easylang) |
||
| (One intermediate revision by one other user not shown) | |||
Line 2,325:
21 23 32 41 43 3 12
22 31 40 49 2 11 20</pre>
=={{header|EasyLang}}==
{{trans|C}}
<syntaxhighlight>
func f n x y .
return (x + y * 2 + 1) mod n
.
numfmt 0 3
proc msqr n . .
for i = 0 to n - 1
for j = 0 to n - 1
write f n (n - j - 1) i * n + f n j i + 1
.
print ""
.
.
msqr 5
</syntaxhighlight>
{{out}}
<pre>
2 23 19 15 6
14 10 1 22 18
21 17 13 9 5
8 4 25 16 12
20 11 7 3 24
</pre>
=={{header|EchoLisp}}==
Line 5,721 ⟶ 5,747:
{{trans|Go}}
{{libheader|Wren-fmt}}
<syntaxhighlight lang="
var ms = Fn.new { |n|
Line 5,748 ⟶ 5,774:
var m = res[1]
for (i in 0...n) {
for (j in 0...n)
System.print()
}
| |||