Rosetta Code

Magic squares of doubly even order: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Hout (talk | contribs)
9,665 edits
m →‎JS ES6: (Restored the testing of three orders – 4, 8, 12)
Hout (talk | contribs)
9,665 edits
Line 282:
=={{header|Haskell}}==
 
<lang Haskell>moduleimport DoubleEvenMagicData.List where(transpose)
import Data.List (transpose)
magicSquare :: Int -> [[Int]]
Line 315 ⟶ 313:
magicSeries :: Int -> [Bool]
magicSeries n
| n <= 10 = [True, False]
| otherwise = xs ++ (not <$> xs)
where
Line 342 ⟶ 340:
where
square = magicSquare n
sums@h:t = sum <$> (square) ++ -- rows
(transpose square) ++ -- cols
(diagonals square) -- diagonals
Retrieved from "https://rosettacode.org/wiki/Magic_squares_of_doubly_even_order"