read n r=`seq -$n $n` a=(\ \*) for i in $r;do b=;for j in $r;do b+="${a[i*i+j*j<=n*n]}";done;echo "$b";done

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

download

return to the top page