Magic squares of doubly even order: Difference between revisions
Content deleted Content added
Line 600:
limit = sqr + 1
series
-- For integer powers of 2, the (append not) 'magic' series directly
-- 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 $ concat $ concat $
|