Gaussian Prime by I., S.

END{for(R=w=24;--R>-w;){for(I=w;--I>-w;){n=R^2+I^2
c=n=1<n?n:3
for(t=1;--c;)t=t*3%n
printf!--t||51236~(n^.5+1)/4?"[]":"  "}print}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page