Frobenius numbers: Difference between revisions
Content added Content deleted
No edit summary |
(add RPL) |
||
| Line 1,589: | Line 1,589: | ||
Found 25 Frobenius numbers |
Found 25 Frobenius numbers |
||
done...</pre> |
done...</pre> |
||
=={{header|RPL}}== |
|||
« → max |
|||
« { } 2 OVER |
|||
'''DO''' |
|||
ROT SWAP + SWAP |
|||
DUP NEXTPRIME DUP2 * OVER - ROT - |
|||
'''UNTIL''' DUP max ≥ '''END''' |
|||
DROP2 |
|||
» » ‘<span style="color:blue>FROB</span>’ STO |
|||
10000 <span style="color:blue>FROB</span> |
|||
{{out}} |
|||
<pre> |
|||
1: { 1 7 23 59 119 191 287 395 615 839 1079 1439 1679 1931 2391 3015 3479 3959 4619 5039 5615 6395 7215 8447 9599 } |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||