Magic squares of doubly even order: Difference between revisions

Content added Content deleted
Line 610: Line 610:
-- minimum truth table, horizontally and vertically
-- minimum truth table, horizontally and vertically
| otherwise = (concat . concat . concat .
| otherwise = (concat . concat . concat .
scale . fmap scale $ splitEvery 4 $ magicSeries 4)
scale $ scale <$> (splitEvery 4 $ magicSeries 4))
where
where
scale = replicate $ quot n 4
scale = replicate $ quot n 4
Retrieved from "https://rosettacode.org/wiki/Magic_squares_of_doubly_even_order"