Magic squares of odd order: Difference between revisions
Content added Content deleted
(Frink) |
|||
| Line 1,708: | Line 1,708: | ||
<lang frink>order = length[ARGS] > 0 ? eval[ARGS@0] : undef |
<lang frink>order = length[ARGS] > 0 ? eval[ARGS@0] : undef |
||
until isInteger[order] and order mod 2 == 1 |
until isInteger[order] and order mod 2 == 1 |
||
{ |
|||
order = eval[input["Enter order (must be odd): ", 3]] |
order = eval[input["Enter order (must be odd): ", 3]] |
||
} |
|||
a = new array[[order, order], undef] |
a = new array[[order, order], undef] |
||
| Line 1,726: | Line 1,724: | ||
} |
} |
||
a@y@x = i |
a@y@x = i |
||
y = ny |
y = ny |
||
x = nx |
x = nx |
||
| Line 1,742: | Line 1,739: | ||
Magic number is 65 |
Magic number is 65 |
||
</pre> |
</pre> |
||
=={{header|Go}}== |
=={{header|Go}}== |
||