Anonymous user
Magic squares of doubly even order: Difference between revisions
Magic squares of doubly even order (view source)
Revision as of 08:29, 18 December 2016
, 7 years ago→{{header|REXX}}: optimized the MAX# subroutine.
m (→{{header|REXX}}: optimized the MAX# subroutine.) |
|||
Line 1,043:
show: #=0; do r=1 for n; $=; do c=1 for n; $=$ right(@(r,c),w); end; say $; end; return
sum: #=0; do r=1 for n; #=#+@(r,1); end; say; say 'The magic number is: ' #; return
max#: do a=n for
/*──────────────────────────────────────────────────────────────────────────────────────*/
swap: do r=1 for n
| |||