Magic squares of doubly even order: Difference between revisions
Content added Content deleted
(→JS ES6: {{Trans|Haskell}}) |
|||
Line 609: | Line 609: | ||
| otherwise = (concat $ concat $ concat $ |
| otherwise = (concat $ concat $ concat $ |
||
scale $ fmap scale $ splitEvery 4 $ magicSeries 4) |
scale $ fmap scale $ splitEvery 4 $ magicSeries 4) |
||
where |
|||
scale = replicate $ quot n 4 |
|||
Line 643: | Line 644: | ||
where |
where |
||
square = magicSquare n |
square = magicSquare n |
||
h:t = sum <$> (square) ++ |
h:t = sum <$> (square) ++ -- rows |
||
(transpose square) ++ -- cols |
|||
(diagonals square) -- diagonals |
|||
diagonals :: [[Int]] -> [[Int]] |
diagonals :: [[Int]] -> [[Int]] |