HHC 2015 RPN programming Contest is now open

[Egan Ford]

Improved version:

Code:


8 REG
0 FLAG
40 LINES
64 BYTES

  1 LBL RR
  2 5
  3 STO 00
  4 CLx 
  5 STO 07
  6 LBL 01
  7 RCL 07
  8 RCL IND 00
  9 10^x 
 10 STO 06
 11 /
 12 INT
 13 10
 14 MOD
 15 x>0?
 16 GTO 02
 17 RCL 06
 18 ST+ 07
 19 LBL 02
 20 DSE 00
 21 GTO 01
 22 3
 23 STO 00
 24 LBL 03
 25 RCL 07
 26 10
 27 /
 28 INT
 29 STO 07
 30 10000
 31 MOD 
 32 1111
 33 X<=Y?
 34 GTO 04
 35 DSE 00
 36 GTO 03
 37 STOP
 38 LBL 04
 39 CLx 
 40 END