Magic squares of doubly even order: Difference between revisions

Content added Content deleted

Inline

@@ Line 298: / Line 298: @@
         dim( #(n*n) ) matriz de ceros 'sqr'
         generar cuadrado mágico (n);
-        ir a sub ( meter en tabla, sqr, #(n+1), 4 ), para 'sqr'
+        ir a sub ( meter en tabla, sqr, #(n+1) ), para 'sqr'
         imprimir '"Magic square order ",n,\
                   "\nMagic constant : ",#((n * n + 1) * n / 2),\
@@ Line 309: / Line 309: @@
 subrutinas
-sub( meter en tabla, s, n, w ) {
+sub( meter en tabla, s, n ) {
     i=n,rareti(i, 'i')
     retener 'n', insertar columnas en 's'