Magic squares of doubly even order: Difference between revisions
Magic squares of doubly even order (view source)
Revision as of 22:16, 10 December 2016
, 7 years ago→{{header|Haskell}}
Line 602:
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 .
Line 623:
where
xs = magicSeries (n - 1)
splitEvery :: Int -> [a] -> [[a]]
splitEvery n xs
Line 652:
diagonals :: [[Int]] -> [[Int]]
diagonals xs =
main2 :: IO ()
| |||