challenge

[Gilles]

(01-20-2015 06:10 PM)Hlib Wrote:  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 finish 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

Why a new algorithm ? ;D

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]] -1 0 → Km N K
  «
   1 10 FOR E `Km(1,E)+8*(E≠1)` 'S' STO
    1 10 FOR D `Km(1,D)+7*(D≠1)+S` 'T' STO
     1 10 FOR C `Km(3,C)+T` 'U' STO `(C==2)+1` 'B' STO
      1 10 FOR A `Km(B,A)+U`'V' STO 1 'N' STO+ IF V 0 > THEN `(FP(N/V)==0)+K` 'K' STO  END NEXT
     NEXT
    NEXT
   NEXT  K
  »

By the way, it is curious that FRAC (0/0) returns 0 on the Casio