1
0
Fork 0
mirror of https://gitlab.com/mfocko/CodeWars.git synced 2024-11-08 18:49:07 +01:00
CodeWars/6kyu/sum_of_digits__digital_root/solution.hs
Matej Focko fc899b0b02
chore: initial commit
Signed-off-by: Matej Focko <mfocko@redhat.com>
2021-12-28 16:19:58 +01:00

5 lines
136 B
Haskell

module DigitalRoot where
digitalRoot :: Integral a => a -> a
digitalRoot 0 = 0
digitalRoot n = if n `mod` 9 == 0 then 9 else n `mod` 9