-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