m:-readln([N]),M is -N,between(M,N,X),(between(M,N,Y),(X*X+Y*Y>N*N -> C=32;C=42),\+put(C);\+nl).

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

download

return to the top page