Skip to content

Instantly share code, notes, and snippets.

@glaznaj

glaznaj/sum_n_count.hs

Last active February 29, 2016 19:37
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save glaznaj/1c2e7982aca6fa04bb41 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save glaznaj/1c2e7982aca6fa04bb41 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sum_n_count.hs
sum'n'count :: Integer -> (Integer, Integer)
sum'n'count 0 = (0, 1)
sum'n'count x = helper (abs x) 0 0
where
helper 0 sum count = (sum, count)
helper n sum count = let num = (n `div` 10)
in helper num (sum + n - num * 10) (count + 1)
Raw
sum_n_count.md

Реализуйте функцию, находящую сумму и количество цифр десятичной записи заданного целого числа.

sum'n'count :: Integer -> (Integer, Integer)
sum'n'count x = undefined

GHCi> sum'n'count (-39)
(12,2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment