challenge

[Gilles]

A shorter, faster but less understandable version :

Code:


« → n
 « 
  CASE
   'n==0.'  THEN 0. END
   'n<20.'  THEN {3.,3.,5.,4.,4.,3.,5.,5.,4.,3.,6.,6.,8.,8.,7.,7.,9.,8.,8.} n GET END
   'n<100.' THEN {6.,6.,5.,5.,5.,7.,6.,6.} n →STR HEAD STR→  1 - GET n →STR TAIL STR→  →TXT END
   'n≤999.' THEN n →STR HEAD STR→  →TXT 7. n →STR TAIL STR→ →TXT END
   n →STR HEAD STR→ →TXT 8. n →STR TAIL STR→ →TXT 
  END
 »
 +
»
'→TXT' STO

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