mirror of
https://gitlab.com/mfocko/CodeWars.git
synced 2024-11-22 08:33:48 +01:00
6 lines
162 B
Haskell
6 lines
162 B
Haskell
module Century where
|
|
|
|
century :: Int -> Int
|
|
century year = case year `mod` 100 of
|
|
0 -> year `div` 100
|
|
_ -> 1 + year `div` 100
|