Strange numbers: Difference between revisions
Content added Content deleted
(Added VTL-2) |
(A) |
||
Line 2,404: | Line 2,404: | ||
425 427 429 461 463 464 468 469 470 472 |
425 427 429 461 463 464 468 469 470 472 |
||
474 475 479 492 494 496 497</pre> |
474 475 479 492 494 496 497</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 - abs prime not iff |
|||
[ 2drop false ] done |
|||
- abs prime ] is strange+ ( n --> b ) |
|||
[] 399 times |
|||
[ i^ 101 + |
|||
dup strange+ iff |
|||
join else drop ] |
|||
dup size echo |
|||
say " strange numbers:" |
|||
cr cr |
|||
witheach |
|||
[ echo |
|||
i^ 10 mod 9 = iff cr else sp ]</syntaxhighlight> |
|||
{{out}} |
|||
<pre>87 strange numbers: |
|||
130 131 135 136 138 141 142 146 147 149 |
|||
161 163 164 168 169 181 183 185 186 202 |
|||
203 205 207 241 242 246 247 249 250 252 |
|||
253 257 258 270 272 274 275 279 292 294 |
|||
296 297 302 303 305 307 313 314 316 318 |
|||
350 352 353 357 358 361 363 364 368 369 |
|||
381 383 385 386 413 414 416 418 420 424 |
|||
425 427 429 461 463 464 468 469 470 472 |
|||
474 475 479 492 494 496 497 |
|||
</pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |