Magic squares of doubly even order: Difference between revisions
Magic squares of doubly even order (view source)
Revision as of 19:16, 10 December 2016
, 7 years ago→{{header|Haskell}}
(→JS ES6: {{Trans|Haskell}}) |
|||
Line 609:
| otherwise = (concat $ concat $ concat $
scale $ fmap scale $ splitEvery 4 $ magicSeries 4)
scale = replicate $ quot n 4
Line 643 ⟶ 644:
where
square = magicSquare n
h:t = sum <$> (square) ++
diagonals :: [[Int]] -> [[Int]]
| |||