Написать рекурсивную функцию вычисления цифрового корня натурального числа

@diman0108 · Регистрация: 13.10.2013

Написать рекурсивную функцию вычисления цифрового корня натурального числа (если сложить все цифры этого числа, затем все цифры найденной суммы и повторять этот процесс, то в результате будет однозначное число (цифра), которое и называется цифровым корнем данного числа);
помогите как реализовать!!!

@calabi-yau · 13.10.2013, 16:09

Haskell

1	f x = foldr1 (\a b -> f $ a + b) $ map (read . (:[])) $ show x

@Catstail · 13.10.2013, 19:09

calabi-yau, но где же рекурсия?

Вот рекурсивное решение:

Haskell

-- сумма цифр
sumDig :: Int -> Int
sumDig n | (n < 10) = n
         | otherwise = (n `mod` 10) + sumDig (n `div` 10)
-- цифровой корень
nroot :: Int -> Int
nroot n | (sd < 10) = sd
        | otherwise = nroot sd
          where sd = sumDig n
 
-- проверка
 
Main> nroot 123
6
 
Main> nroot 9999
9

@calabi-yau · 13.10.2013, 21:49

Сообщение от Catstail

calabi-yau, но где же рекурсия?

я совсем рассеянный стал, не заметил.

@helter · 14.10.2013, 02:17

Не по теме:

ОМГ, "цыфровой корень"... Это называется "остаток от деления на девять", только вместо 0 берётся 9.

@diman0108 0 / 0 / 0 Регистрация: 13.10.2013 Сообщений: 6
		1
	Написать рекурсивную функцию вычисления цифрового корня натурального числа 13.10.2013, 15:41. Показов 1408. Ответов 4 Метки нет (Все метки) Написать рекурсивную функцию вычисления цифрового корня натурального числа (если сложить все цифры этого числа, затем все цифры найденной суммы и повторять этот процесс, то в результате будет однозначное число (цифра), которое и называется цифровым корнем данного числа); помогите как реализовать!!! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@calabi-yau 78 / 64 / 5 Регистрация: 25.03.2012 Сообщений: 71
	13.10.2013, 21:49	4
	Сообщение от Catstail calabi-yau, но где же рекурсия? я совсем рассеянный стал, не заметил. 0

@helter
	14.10.2013, 02:17 Написать рекурсивную функцию вычисления цифрового корня натурального числа #5
	Не по теме: ОМГ, "цыфровой корень"... Это называется "остаток от деления на девять", только вместо 0 берётся 9. 0

Опции темы