challenge for programmable calculators

[David Hayden]

SySRPL with a twist:

Code:


::
  TEN ONE_DO (DO)
    INDEX@
    TEN ZERO_DO (DO)
        TEN ZERO_DO (DO)
            INDEX@ OVER #* JINDEX@ #* ( a*b*c )
            INDEX@ 3PICK #+ JINDEX@ #+ ( a+b+c )
            #*
            OVER ONEHUNDRED #* JINDEX@ TEN #* #+ INDEX@ #+ ( abc )
            OVER #= ITE ( a abc )
                 SWAP DROP
        LOOP
    LOOP
    DROP
  LOOP
;

0.02 seconds on my RPL32 interpreter running on my PC.