Strange plus numbers: Difference between revisions
Content added Content deleted
(add RPL) |
(Added Quackery.) |
||
Line 1,724: | Line 1,724: | ||
389 411 412 414 416 430 432 434 438 470 |
389 411 412 414 416 430 432 434 438 470 |
||
474 476 492 494 498</pre> |
474 476 492 494 498</pre> |
||
=={{header|Quackery}}== |
|||
<syntaxhighlight lang="Quackery"> [ ' [ 2 3 5 7 11 13 17 ] |
|||
find 7 < ] is prime ( n --> b ) |
|||
[ 10 /mod |
|||
swap 10 /mod |
|||
tuck + prime not iff |
|||
[ 2drop false ] done |
|||
+ prime ] is strange+ ( n --> b ) |
|||
[] 399 times |
|||
[ i^ 101 + |
|||
dup strange+ iff |
|||
join else drop ] |
|||
dup size echo |
|||
say " strange plus numbers:" |
|||
cr cr |
|||
witheach |
|||
[ echo |
|||
i^ 10 mod 9 = iff cr else sp ]</syntaxhighlight> |
|||
{{out}} |
|||
<pre>65 strange plus numbers: |
|||
111 112 114 116 120 121 123 125 129 141 |
|||
143 147 149 161 165 167 202 203 205 207 |
|||
211 212 214 216 230 232 234 238 250 252 |
|||
256 258 292 294 298 302 303 305 307 320 |
|||
321 323 325 329 341 343 347 349 383 385 |
|||
389 411 412 414 416 430 432 434 438 470 |
|||
474 476 492 494 498 |
|||
</pre> |
|||
=={{header|R}}== |
=={{header|R}}== |