Plot Circle by ksk

let p,r=print_char,read_int()let rec($)x y=x< -r&r$(p '
';y-1);p"* ".[min(x*x/(r*r-y*y+1))1];x-1$y;;r$r

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

download

return to the top page