6 lines
185 B
Haskell
6 lines
185 B
Haskell
*Main> mapM_ (putStrLn. (ap leaptext isleap)) [1900,1994,1996,1997,2000]
|
|
1900 is not a leap year
|
|
1994 is not a leap year
|
|
1996 is a leap year
|
|
1997 is not a leap year
|
|
2000 is a leap year
|