Prime numbers which contain 123: Difference between revisions
Content added Content deleted
(add RPL) |
(Added Quackery.) |
||
Line 960: | Line 960: | ||
Igual que la entrada de FreeBASIC. |
Igual que la entrada de FreeBASIC. |
||
</pre> |
</pre> |
||
=={{header|Quackery}}== |
|||
<code>eratosthenes</code> and <code>isprime</code> are defined at [[Sieve of Eratosthenes#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> 100000 eratosthenes |
|||
[ false swap |
|||
[ dup 122 > while |
|||
dup 1000 mod |
|||
123 = iff |
|||
[ dip not ] |
|||
done |
|||
10 / again ] |
|||
drop ] is contains123 ( n --> b ) |
|||
[] |
|||
100000 times |
|||
[ i^ isprime if |
|||
[ i^ contains123 if |
|||
[ i^ join ] ] ] |
|||
[] swap witheach |
|||
[ number$ nested join ] |
|||
48 wrap$</syntaxhighlight> |
|||
{{out}} |
|||
<pre>1123 1231 1237 8123 11239 12301 12323 12329 |
|||
12343 12347 12373 12377 12379 12391 17123 20123 |
|||
22123 28123 29123 31123 31231 31237 34123 37123 |
|||
40123 41231 41233 44123 47123 49123 50123 51239 |
|||
56123 59123 61231 64123 65123 70123 71233 71237 |
|||
76123 81233 81239 89123 91237 98123</pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |