Primes with digits in nondecreasing order: Difference between revisions
Primes with digits in nondecreasing order (view source)
Revision as of 21:58, 25 June 2024
, 11 days agoAdded Quackery.
(Added Easylang) |
(Added Quackery.) |
||
Line 1,333:
257 269 277 337 347 349 359 367 379 389
449 457 467 479 499 557 569 577 599 677</pre>
=={{header|Quackery}}==
<code>isprime</code> is defined at [[Primality by trial division#Quackery]].
<syntaxhighlight lang=“Quackery”> [ true 10 rot
[ 10 /mod rot
dip tuck > iff
[ rot not unrot ]
done
dup 0 = until ]
2drop ] is nondecreasing ( n --> b )
[] 1000 times
[ i^ nondecreasing while
i^ isprime while
i^ join ]
echo</syntaxhighlight>
{{out}}
<pre>[ 2 3 5 7 11 13 17 19 23 29 37 47 59 67 79 89 113 127 137 139 149 157 167 179 199 223 227 229 233 239 257 269 277 337 347 349 359 367 379 389 449 457 467 479 499 557 569 577 599 677 ]</pre>
=={{header|Raku}}==
| |||