challenge

[Hlib]

(01-19-2015 03:06 PM)Don Shepherd Wrote:  How many integers (from 1 to 9999) are evenly divisible by the number of letters in their name?
...For you HP50 fans, I expect to see a one-line RPL program!...

I understand your irony :-) For such simple tasks a BASIC is more comfortable. First I wrote this program on CASIO-BASIC for FX-2.0 within an hour, while my algorithm on RPL did not finished yet.

Code:


[[0,3,3,5,4,4,3,5,5,4][3,6,6,8,8,7,7,9,8,8][0,0,6,6,5,5,5,7,6,6]]→Mat K:-1→N:0→K:
For 1→E To 10:Mat K[1,E]+8(E≠1)→S:
  For 1→D To 10:Mat K[1,D]+7(D≠1)+S→T:
    For 1→C To 10:Mat K[3,C]+T→U:(C=2)+1→B:
      For 1→A To 10:Mat K[B,A]+U→V:Isz N:(Frac (N/V)=0)+K→K:
      Next:
    Next:
  Next:
Next:"K=":K

N=9999 K=359 time=350sec size=256b