Prime words: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added Quackery.) |
||
Line 1,003: | Line 1,003: | ||
q |
q |
||
</pre> |
|||
=={{header|Quackery}}== |
|||
<code>eratosthenes</code> and <code>isprime</code> are defined at [[Sieve of Eratosthenes#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> 128 eratosthenes |
|||
[] |
|||
$ "rosetta/unixdict.txt" sharefile drop nest$ |
|||
witheach |
|||
[ true over |
|||
witheach |
|||
[ isprime not if |
|||
[ not conclude ] ] |
|||
iff [ nested join ] |
|||
else drop ] |
|||
46 wrap$</syntaxhighlight> |
|||
{{out}} |
|||
<pre>a aaa age agee ak am ama e egg eke em emma g |
|||
ga gag gage gam game gamma ge gee gem gemma gm |
|||
k keg m ma mae magma make mamma me meek meg q |
|||
</pre> |
</pre> |
||