falling number by pooq

\[A,B]:-A>B.
\[A,B|C]:-A>B,\[B|C].
m:-between(10,9876,X),name(X,Y),\Y,\+writeln(X).

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

download

return to the top page