Magic squares of doubly even order: Difference between revisions

Content added Content deleted
m (→‎{{header|Haskell}}: maps -> <$>)
(→‎{{header|Haskell}}: (fixed error in previous edit))
Line 288:
zipWith (\x i -> if x then i else limit - i)
(concat $ concat $ concat $
scale $ fmap scale <$> splitEvery 4 $ magicSeries 5)
[1..sqr]
where
Line 309:
where
(gp, t) = splitAt n xs
 
Retrieved from "https://rosettacode.org/wiki/Magic_squares_of_doubly_even_order"