HHC 2017 RPN Programming contest information and results thread

[John Keith]

OK then, here's my (irrelevant) RPL version using DavidM's ListExt library:

Code:

\<< 0 SWAP DO I\->NL SQ LSUM SWAP 1 + SWAP
           UNTIL { 1 4 } OVER POS
           END "HAPPY"
        IF SWAP 4 SAME
        THEN "UN" SWAP +
        END \->TAG
\>>