Forbidden numbers: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
(add RPL) |
||
| Line 655: | Line 655: | ||
Forbidden number count up to five million: 833,329</pre> |
Forbidden number count up to five million: 833,329</pre> |
||
=={{header|RPL}}== |
|||
{{trans|XPLo}} |
|||
≪ R→B |
|||
'''WHILE''' #0d OVER ≠ LAST #3d AND == AND '''REPEAT''' SR SR '''END''' |
|||
#7d AND B→R 7 == |
|||
≫ ''''FORB?'''' STO |
|||
≪ 0 1 3 PICK '''FOR''' j '''IF''' j '''FORB? THEN''' 1 + '''END NEXT''' |
|||
≫ ''''NFORB'''' STO |
|||
≪ { } 0 '''WHILE''' OVER SIZE 50 < '''REPEAT''' 1 + '''IF''' DUP '''FORB? THEN''' SWAP OVER + SWAP '''END END''' DROP ≫ |
|||
500 '''NFORB''' |
|||
5000 '''NFORB''' |
|||
50000 '''NFORB''' |
|||
{{out}} |
|||
<pre> |
|||
4: { 7 15 23 28 31 39 47 55 60 63 71 79 87 92 95 103 111 112 119 124 127 135 143 151 156 159 167 175 183 188 191 199 207 215 220 223 231 239 240 247 252 255 263 271 279 284 287 295 303 311 } |
|||
3: 82 |
|||
2: 831 |
|||
1: 8330 |
|||
</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |
||