Digital root/Multiplicative digital root: Difference between revisions
Content added Content deleted
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
(add RPL) |
||
Line 3,194: | Line 3,194: | ||
done... |
done... |
||
</pre> |
</pre> |
||
≪ 1 SWAP |
|||
'''DO''' 10 / LAST MOD ROT * RND SWAP FLOOR |
|||
'''UNTIL''' DUP NOT '''END''' DROP |
|||
≫ ''''MDGIT'''' STO |
|||
≪ 0 '''WHILE''' OVER 9 > '''REPEAT''' |
|||
1 + SWAP '''MDGIT''' SWAP '''END''' SWAP R→C |
|||
≫ ''''MDPR'''' STO |
|||
≪ { 123321 7739 893 899998 } → cases |
|||
≪ {} 1 cases SIZE '''FOR''' j cases j GET '''MDPR''' + '''NEXT''' |
|||
≫ ≫ ''''TASK1'''' STO |
|||
≪ 1 10 '''START''' { 0 0 0 0 0 } '''NEXT''' 10 →LIST 'tab' STO 50 'cnt' STO |
|||
1 99999 '''FOR''' j |
|||
j '''MDPR''' IM 1 + tab OVER GET |
|||
'''IF''' DUP 0 POS '''THEN''' |
|||
LAST j PUT 'tab' ROT ROT PUT cnt 1 - |
|||
'''IF''' DUP '''THEN''' 'cnt' STO '''ELSE''' 99999 'j' STO '''END''' |
|||
'''ELSE''' DROP2 '''END''' |
|||
'''NEXT''' tab |
|||
≫ ''''TASK2'''' STO |
|||
{{out}} |
|||
<pre> |
|||
2: { (3,8) (3,8) (3,2) (2,0) } |
|||
1: { { 10 20 25 30 40 } |
|||
{ 1 11 111 1111 11111 } |
|||
{ 2 12 21 26 34 } |
|||
{ 3 13 31 113 131 } |
|||
{ 4 14 22 27 39 } |
|||
{ 5 15 35 51 53 } |
|||
{ 6 16 23 28 32 } |
|||
{ 7 17 71 117 171 } |
|||
{ 8 18 24 29 36 } |
|||
{ 9 19 33 91 119 } } |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |