Magic squares of doubly even order: Difference between revisions

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

edits