Digital root/Multiplicative digital root: Difference between revisions
Content added Content deleted
m (Add Perl implementation) |
(Perl 6 entry) |
||
Line 405: | Line 405: | ||
print " $target: [", join(", ", @n), "]\n"; |
print " $target: [", join(", ", @n), "]\n"; |
||
}</lang> |
}</lang> |
||
=={{header|Perl 6}}== |
|||
<lang perl6>sub multiplicative-digital-root(Int $n) { |
|||
return .elems - 1, .[.end] |
|||
given $n, {[*] .comb} ... *.chars == 1 |
|||
} |
|||
for 123321, 7739, 893, 899998 { |
|||
say "$_: ", .&multiplicative-digital-root; |
|||
} |
|||
for ^10 -> $d { |
|||
say "$d : ", .[^5] given |
|||
grep *.&multiplicative-digital-root[1] == $d, |
|||
1 .. * |
|||
}</lang> |
|||
{{out}} |
|||
<pre>123321: 3 8 |
|||
7739: 3 8 |
|||
893: 3 2 |
|||
899998: 2 0 |
|||
0 : 10 20 25 30 40 |
|||
1 : 1 11 111 1111 11111 |
|||
2 : 2 12 21 26 34 |
|||
3 : 3 13 31 113 131 |
|||
4 : 4 14 22 27 39 |
|||
5 : 5 15 35 51 53 |
|||
6 : 6 16 23 28 32 |
|||
7 : 7 17 71 117 171 |
|||
8 : 8 18 24 29 36 |
|||
9 : 9 19 33 91 119</pre> |
|||
=={{header|PL/I}}== |
=={{header|PL/I}}== |