Puzzle - RPL and others

[Didier Lachieze]

A recursive brute force program on the Prime, runs in ~.4s on my Prime G1, the .hpprgm file size is 1856 bytes:

Code:

next(n,l)
BEGIN
 LOCAL a:=SIZE(l),b,c;
 IF a==0 THEN RETURN END;
 FOR b FROM 1 to a DO
  c:=n*10+l(b);
  IF (c MOD (10-a))==0 THEN
   IFTE(a==1,PRINT(c),next(c,SUPPRESS(l,b)));
  END; 
 END; 
END;

EXPORT puzzle()
BEGIN
 next(0,{1,2,3,4,5,6,7,8,9});
END;