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