RosettaCodeData/Task/Leap-year/Haskell/leap-year-2.hs
2023-07-01 13:44:08 -04:00

1 line
64 B
Haskell

isleap = foldl1 ((&&).not).flip map [400, 100, 4]. ((0==).).mod