Rosetta Code

Magic squares of doubly even order: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Hout (talk | contribs)
9,659 edits
Hout (talk | contribs)
9,659 edits
→‎{{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"