RosettaCodeData/Task/Leap-year/Haskell/leap-year-2.hs
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

1 line
64 B
Haskell

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