mirror of
https://gitlab.com/mfocko/CodeWars.git
synced 2024-11-09 19:19:07 +01:00
7 lines
162 B
Haskell
7 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
|