m:-readln([N]),N/I,M is N-I+1,X is max(I,M),(X/J,((J=I;J=M)-> \+put(88);\+put(32));\+nl). N/I:-between(1,N,I).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page