Plot Circle by 51b

-module(p).
-export([m/0]).
m()->{_,[N]}=io:fread('',"~d"),L=lists:seq(-N,N),[io:format([42-(X*X+Y*Y-1)div(N*N)*10||Y<-L]++"
")||X<-L].

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

download

return to the top page