Magic squares of odd order: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,535: / Line 4,535: @@
 the magic number is : 369
+</pre>
+=={{header|RPL}}==
+{{trans|IS-BASIC}}
+ ≪ → n
+   ≪ n DUP 2 →LIST 0 CON
+n '''FOR''' j
+n '''FOR''' k
+            j k 2 →LIST
+            j 2 * k - n + 1 - n MOD n *
+            j 2 * k + 2 - n MOD 1 +
+            + PUT
+      '''NEXT NEXT'''
+      n DUP SQ 1 + * 2 /
+ ≫ ≫ '<span style="color:blue">ODDMAGIC</span>' STO
+<span style="color:blue">ODDMAGIC</span>
+{{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]]
+: 65
 </pre>