Magic squares of doubly even order: Difference between revisions

=={{header|Elena}}==

{{trans|C#}}

<lang elena>import system'routines.

import extensions.

import extensions'routines.

MagicSquareDoublyEven = (:n)<int>

[

if((n < 4)||(n mod(4) != 0))

[ InvalidArgumentException new:"base must be a positive multiple of 4" ].

int bits := 09669h.

int size := n * n.

int mult := n / 4.

var result := IntMatrix new(n,n).

int r := 0.

[

int bitPos := c / mult + (r / mult) * 4.

i += 1.

c += 1.

r += 1.

].

^ result

].

[

int n := 8.

console printLine; printLine("Magic constant: ",(n * n + 1) * n / 2).

{{out}}

<pre>