RosettaCodeData/Task/Leap-year/Haskell/leap-year-2.hs

2 lines
64 B
Haskell

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