Digital root: Difference between revisions
Added 11l
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 24:
* [[Iterated digits squaring]]
<br><br>
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F digital_root(=n)
V ap = 0
L n >= 10
n = sum(String(n).map(digit -> Int(digit)))
ap++
R (ap, n)
L(n) [Int64(627615), 39390, 588225, 393900588225, 55]
Int64 persistance, root
(persistance, root) = digital_root(n)
print(‘#12 has additive persistance #2 and digital root #..’.format(n, persistance, root))</lang>
{{out}}
<pre>
627615 has additive persistance 2 and digital root 9.
39390 has additive persistance 2 and digital root 6.
588225 has additive persistance 2 and digital root 3.
393900588225 has additive persistance 2 and digital root 9.
55 has additive persistance 2 and digital root 1.
</pre>
=={{header|360 Assembly}}==
| |||