Digital root: Difference between revisions
→{{header|Eiffel}}
No edit summary |
|||
Line 561:
<lang Eiffel>
compute_digital_root (a_number: INTEGER_64;
-- Returns additive persistence and digital root of `a_number' using `
valid_base: a_base >1
local
temp_num: INTEGER_64
do
Line 570 ⟶ 572:
Result [2] := a_number
until
Result [2] <
loop
from
Line 578 ⟶ 580:
temp_num = 0
loop
Result [2] := Result [2] + (temp_num \\
temp_num := temp_num //
end
Result [1] := Result [1] + 1
Line 585 ⟶ 587:
end
</lang>
=={{header|Erlang}}==
Using [[Sum_digits_of_an_integer]].
| |||