Magic squares of doubly even order: Difference between revisions
Magic squares of doubly even order (view source)
Revision as of 15:48, 10 December 2016
, 7 years ago→{{header|Haskell}}: (Tweaked the point at which the 'magic series' starts, for more natural indexing
m (→{{header|Haskell}}: (Tweaked the point at which the 'magic series' starts, for more natural indexing) |
|||
Line 282:
=={{header|Haskell}}==
<lang Haskell>
import Data.List (transpose)
magicSquare :: Int -> [[Int]]
Line 300 ⟶ 302:
-- yields the truth table that we need
| isPowerOf 2 n =
magicSeries $ floor (logBase 2 (fromIntegral sqr))
-- where n is not a power of 2, we can replicate a
-- minimum truth table, horizontally and vertically
| otherwise = (concat $ concat $ concat $
scale $ fmap scale $ splitEvery 4 $ magicSeries
where scale = replicate $ quot n 4
------------------------------------------------------------------------
magicSeries :: Int -> [Bool]
magicSeries n
| n <= 1 = [True, False]
| otherwise = xs ++ (not <$> xs)
where
|