Magic squares of doubly even order: Difference between revisions
Content added Content deleted
m (→{{header|AppleScript}}: ( slight reordering )) |
|||
Line 602:
limit = sqr + 1
series
-- For
-- yields the truth table that we need
| isPowerOf 2 n =
magicSeries $ floor (logBase 2 (fromIntegral sqr))
-- where n is not
-- minimum truth table, horizontally and vertically
| otherwise = (concat
scale
where
scale = replicate $ quot n 4
|