gets stdin r;set x [expr -$r-1];while {[incr x]<=$r} {set y [expr -$r-1];set s "";while {[incr y]<=$r} {set s $s[expr $x*$x+$y*$y<=$r*$r?{*}:{ }]};puts $s}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page