permutation date by uru

#define F(x,y,z)for x:=y to z do
#define U(x),x div 10,x mod 10
#define R a U(b)U(c)U(d)U(e)
var a,b,c,d,e:word;begin
F(a,3,9)F(b,9,29)F(c,9,23)F(d,34,59)F(e,9,59)if[1..9]=[R]then writeln(0,R)end.

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

download

return to the top page