challenge for programmable calculators

[Gerson W. Barbosa]

(12-22-2013 12:46 AM)Don Shepherd Wrote:  

Code:


ANS = ∑(J:START:999:1:
            IF(
                0×L(A:1)+
                ∑(I:0:LOG(J):1:
                   L(B:MOD(IDIV(J:10^I):10))
                   +0×L(A:G(A)×G(B))
                  )
                   ×G(A)=J:
                               L(ANS:J)÷0
                              :0
               )
            )

Very short code!

(12-22-2013 12:46 AM)Don Shepherd Wrote:  By this problem, I also wanted to discover how easy it is to use the special characters for sigma, multiply, and divide.

Unfortunately one cannot start editing other people's posts anymore to see how this is done.