Magic squares of doubly even order: Difference between revisions

m
→‎{{header|Perl 6}}: Meh. tried to be cute and ended up wrong. undo
m (correct the FreeBasic header)
m (→‎{{header|Perl 6}}: Meh. tried to be cute and ended up wrong. undo)
Line 214:
 
=={{header|Perl 6}}==
See [[Magic_squares/Perl_6|Magic squares/Perl 6]] for a general magic square generator. Note that it produces '''a''' magic square, not '''the''' magic square. The output is different each time.
{{out}}
With a parameter of 8:
<pre>54 161 53 522 1062 61 960 1559 51 7 8
27 9 3310 2854 2953 3952 4051 3415 3016
1948 4147 19 20 21 47 4822 42 2241
3540 2539 3627 3728 3129 3230 2634 3833
6232 31 835 6136 6037 38 226 1 7 5925
624 6423 43 544 45 446 5818 57 63 317
4349 1750 4414 4513 2312 2411 1855 4656
1457 5658 13 126 50 495 55 114 3 63 64
 
The magic number is 260</pre>
With a parameter of 12:
<pre> 36 1 27 116 2 26 117 1133 112141 140 34139 115138 114137 136 35 10 25 11 12
144 13 135 14 815 134129 128 127 9126 125 124 5 22 423 142 7 6 143 13324
8525 9426 5327 117 95116 115 52114 113 56112 5734 8735 54 55 86 9636
61108 107 70106 7740 7141 7642 8043 8144 6345 7899 7998 62 7297
2496 1595 128 94 14 12952 125 12453 2254 127 12655 2356 1357 87 86 85
120 84 111 83 32 11082 3364 2965 2866 118 67 31 68 30 11969 109 75 74 73
3772 4671 101 70 47 10076 104 10577 3978 102 10379 3880 4881 63 62 61
132 60 123 59 20 12258 2188 1789 1690 130 91 19 92 18 13193 121 51 50 49
9748 106 47 41 10746 100 40101 102 44103 104 45105 9939 4238 43 98 10837
12109 110 111 3 14033 32 2 14131 137 13630 1029 139 13828 118 11119 1120
73121 122 82123 6521 8320 6419 6818 6917 7516 130 66131 67 74 84132
49133 134 58135 89 9 59 888 92 7 93 516 90 5 91 504 142 60143 144
 
The magic number is 870</pre>
 
</pre>
 
=={{header|REXX}}==
10,339

edits