Magic squares of odd order: Difference between revisions
Added Easylang
(Grouping BASIC dialects) |
(Added Easylang) |
||
| (2 intermediate revisions by 2 users 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,311 ⟶ 5,337:
<syntaxhighlight lang="ruby">func magic_square(n {.is_pos && .is_odd}) {
var i = 0
var j =
var magic_square = []
Line 5,336 ⟶ 5,362:
}
var(n=5) = ARGV»to_i
var sq = magic_square(n)
print_square(sq)
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()
}
| |||