Threaded Mode | Linear Mode

Nick · (This post was last modified: 09-15-2016 01:01 AM by Nick.)

RPN Version 1 (initialized a; stacked m₂):

Code:

<< 14 4 PICK - 12 / IP

   -> m d y a

   << y 4800 + a - 'y' STO

      12 a * m + 3 -

      153 * 2 + 5 / IP

      d +

      365 y * +

      y 4 / IP +

      y 100 / IP -

      y 400 / IP +

      32045 -

    >>

>>

# 56610d ; 260

The size is smaller than before.

RPN Version 2 (list operations):

Code:

<< 14 4 PICK - 12 / IP

   -> m d y a

   << y 4800 + a - 'y' STO

      12 a * m + 3 -

      153 * 2 + 5 / IP

      d +

      365 y * +

      y { 4 -100 400 } / IP ΣLIST +

      32045 -

    >>

>>

# 7368d ; 246.5