Magic squares of doubly even order: Difference between revisions
Content deleted Content added
m →{{header|Haskell}}: maps -> <$> |
→{{header|Haskell}}: (fixed error in previous edit) |
||
Line 288: | Line 288: | ||
zipWith (\x i -> if x then i else limit - i) |
zipWith (\x i -> if x then i else limit - i) |
||
(concat $ concat $ concat $ |
(concat $ concat $ concat $ |
||
scale $ scale |
scale $ fmap scale $ splitEvery 4 $ magicSeries 5) |
||
[1..sqr] |
[1..sqr] |
||
where |
where |
||
Line 309: | Line 309: | ||
where |
where |
||
(gp, t) = splitAt n xs |
(gp, t) = splitAt n xs |
||