Magic squares of doubly even order: Difference between revisions
Content added Content deleted
m (→{{header|Java}}: small change) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Update example) |
||
Line 81: | Line 81: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
See [[Magic_squares/Perl_6|Magic squares/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}} |
{{out}} |
||
With a parameter of 8: |
With a parameter of 8: |
||
<pre> |
<pre>54 16 53 52 10 9 15 51 |
||
27 33 28 29 39 40 34 30 |
|||
19 41 20 21 47 48 42 22 |
|||
35 25 36 37 31 32 26 38 |
|||
62 8 61 60 2 1 7 59 |
|||
6 64 5 4 58 57 63 3 |
|||
43 17 44 45 23 24 18 46 |
|||
14 56 13 12 50 49 55 11 |
|||
The magic number is 260</pre> |
The magic number is 260</pre> |
||
With a parameter of 12: |
|||
<pre> 36 27 116 26 117 113 112 34 115 114 35 25 |
|||
144 135 8 134 9 5 4 142 7 6 143 133 |
|||
85 94 53 95 52 56 57 87 54 55 86 96 |
|||
61 70 77 71 76 80 81 63 78 79 62 72 |
|||
24 15 128 14 129 125 124 22 127 126 23 13 |
|||
120 111 32 110 33 29 28 118 31 30 119 109 |
|||
37 46 101 47 100 104 105 39 102 103 38 48 |
|||
132 123 20 122 21 17 16 130 19 18 131 121 |
|||
97 106 41 107 40 44 45 99 42 43 98 108 |
|||
12 3 140 2 141 137 136 10 139 138 11 1 |
|||
73 82 65 83 64 68 69 75 66 67 74 84 |
|||
49 58 89 59 88 92 93 51 90 91 50 60 |
|||
The magic number is 870 |
|||
</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |