HP49-HP50 Lists of combination

[Thomas Klemm]

Perhaps using a CASE instead of nested IF statements makes reading easier:

Code:

«
  « → m s 
    « CASE
        m 1 ==
        THEN s 1 « 1 →LIST » DOLIST
      END
        m s SIZE ==
        THEN s 1 →LIST
      END
        m 1 - s TAIL ←C EVAL
        1 « s HEAD SWAP + » DOLIST
        m s TAIL ←C EVAL +
      END
    »
  » → ←C
  « ←C EVAL
  »
»