m:-between(1,100,N),A is N-1,B is(A mod 10)+1,\+(B=1->writef("%r ",[1,N]);format("~*r ",[B,N])).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page