|
=={{header|Quackery}}==
<code>isprime</code> is defined at [[Primality by trial division#Quackery]]. ▼
<code>spiral</code> is defined at [[Spiral matrix#Quackery]].
▲<code>isprime</code> is defined at [[Primality by trial division#Quackery]].
<syntaxhighlight lang="Quackery"> [] 900 times
[ i 1+ isprime join ]
<syntaxhighlight lang="Quackery"> 30 32 spiral
witheach
[ witheach
[ dip1024 dupswap peek iff-
isprime [ say "[]" ]iff
else [ say " o" ]
] cr else say " ." ]
drop cr ]</syntaxhighlight>
{{out}}
<pre>
. . . o . o . . . . . o . . . o . . . . . . . . . . [] [] [] [] . o . . . .
. . . . . . . . . . . . . . o . . . o . o . . . []o . . . . . [] [] [] . .
. . []. . . . . . []. . . . . o . . . o . . . . . . . o . . . o [] [] [] . o
[] . . []o . . . o . . . . . []. . []. . . . o . o . . . [] [] . . o . . . . .
. o . o . . . . . o . o . . . . . o []. . . . . o . . . . . . . [] [] .
. . . . . . . . []. . o . . . []. . . . . . . . o . . . o . [] [] . . . .
. . . . . o []. . . o . . . . . . . o . . . . . o []. . . . . . [] [] [] [] [] . .
o . . . o . . . . . . . []. . o . . . o . o . []. . o . o . o . . [] [] [] .
. . []. . . . . o . . . . []. o . . . . []. . []. . . o . o . . . o . [].
. . o . . . . . o . . . o . o . . . . . . . . . . . . . [] [] [] [] . . o .
. . . . . . []. . . . . . []. . []. o . o . . []. . . o . . . o . . . [] [] [] o
o . . . o . . . o . o . . . o . . . . . . . o . . . o . [] [] [] o . . .
. . . . . . . . . . []. . . . . o []. o []. . . o . . . . . . []. . []. [] [] [].
[] . . []. . []. . []o . []. . []o . []o . . . . . []o . o . o . . . . . o . o [] .
. o . o . o . o . o . o . o . . . o . . . . . . . o []. . []. . []. [].
. . . . . . . . . . . . . . o . []o . o . . . []. . . . [][]. . []. . [] [] [] [] o .
. . [] [] [] [] . . . . . . . o . . . o . . o o . o . o . o . . . o . o . o
. . o . . . . . . . o . o . o . . . . . [] [] . . . . . . . . . . . .
. . . . . . []. . []. . . o . . []. o []. . . . . . []. . . . . . []. . []. [] [].
o . . . []o . o . . . []o . o . . . []o . . . o . o . . . []o . . . o [] [] [] .
. . . o . . . o . . . o . . . . . o . . . . [] [] . o . o . . . o . .
. . . . . . . . . . . . []o . []. . . . . . . . . . [] [] [] o . . . . . . .
. . . . . . []. o . o . . []. . . o . . . o . . . o . . . . . . . [] [] o
. . . . o . . . [] [] [] [] o . . . . . . . . . . . o . . . . . . . o . . .
. . . . . o . . . . . o . . . o . o []. . []. . . . . . [] [] [] . . . . . .
[] . . []. . []. . . . . . o . o . . . o . . . . . []o . []. . o . . . . [] [] .
. o []. o . o . . []. . . . . . . o . o . . . . . o . . . . . o [] [] . o
[] . . []o . . . o . . . . . []. . . . . . o . o . [] [] [] . . . . . . . . . .
. o . o . . . . . o . . . . []. o . . . o . o . . . . . . . . . [] [] .
o . . . . . . . o . . . . . . . []. . []o . . . . . []. . [] [] o . . . . .
. . . . . . . . . o . o . . . o . o . . . . . . . . . o . . . .
. . . . . . o . . . o . . . . . o . . . . . o . . . . . . . . .
</pre>
| 