Magic squares of doubly even order: Difference between revisions

Content added Content deleted
m (→‎{{header|Haskell}}: (pruning some redundant brackets ))
m (→‎{{header|Haskell}}: (Slightly simpler diagonals function – dropped a lambda))
Line 623: Line 623:
diagonals :: [[Int]] -> [[Int]]
diagonals :: [[Int]] -> [[Int]]
diagonals xs =
diagonals xs =
(\x -> zipWith (!!) x [0..]) <$> [xs, reverse xs]
flip (zipWith (!!)) [0..] <$> [xs, reverse xs]


main2 :: IO ()
main2 :: IO ()
Retrieved from "https://rosettacode.org/wiki/Magic_squares_of_doubly_even_order"