i=n=$1+1{for(;i-->j=-n;o=o RS)for(;++j<n;)o=o(i*i+j*j>$1^2?FS:"*")}$0=o
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page