challenge

[Gilles]

A shorter RPL version :

Code:


« DUP ->STR -> n s
 « CASE
    n 0  == THEN 0 END
    n 20  < THEN "3354435543668877988" n DUP SUB STR-> END
    n 100 < THEN "66555766" s HEAD STR-> 1 - DUP SUB STR-> s TAIL STR-> Nbr END
    n 999 ≤ THEN s HEAD STR-> Nbr 7 s TAIL STR-> Nbr END
    s HEAD STR-> Nbr 8 s TAIL STR-> Nbr
   END »
   +
» 'Nbr' STO

« 0 1 9999 FOR n n 0 n Nbr MOD NOT {1 +} IFT NEXT » 'Count' STO