X by pooq

m:-readln([N]),between(1,N,I),M is N-I+1,X is max(I,M),(between(1,X,J),((J=I;J=M)-> \+put(88);\+put(32));\+nl).

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

download

return to the top page