Sum of the digits of n is substring of n: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Miranda) |
(RPL: add section) |
||
Line 1,793: | Line 1,793: | ||
Found 48 numbers |
Found 48 numbers |
||
done... |
done... |
||
</pre> |
|||
=={{header|RPL}}== |
|||
≪ →STR 0 1 3 PICK SIZE '''FOR''' j |
|||
OVER j DUP SUB STR→ + '''NEXT''' |
|||
→STR POS |
|||
≫ ‘'''∑DIN?'''’ STO |
|||
≪ { } 1 1000 '''FOR''' j '''IF''' j '''∑DIN? THEN''' j + '''END NEXT''' ≫ EVAL |
|||
{{out}} |
|||
<pre> |
|||
1: { 1 2 3 4 5 6 7 8 9 10 20 30 40 50 60 70 80 90 100 109 119 129 139 149 159 169 179 189 199 200 300 400 500 600 700 800 900 910 911 912 913 914 915 916 917 918 919 1000 } |
|||
</pre> |
</pre> |
||