HHC 2017 RPN Programming contest information and results thread

[Werner]

71 bytes, no regs

Code:

01>LBL"HAPPY"
02 CLA
03 0
04 X<>Y
05 ENTER
06>LBL 02
07 CLX
08 X<>Y
09>LBL 03
10 10
11 X<>Y
12 %
13 FRC
14 ST* Y
15 X<> L
16 INT
17 RDN
18 X^2
19 +
20 R^
21 X>0?
22 GTO 03
23 SIGN
24 ST+ Z
25 X=Y?
26 GTO 01
27 CLX
28 4
29 X!=Y?
30 GTO 02
31 "UN"
32>LBL 01
33 +"HAPPY "
34 CF 29
35 FIX 0
36 ARCL Z
37 FIX 4
38 SF 29
39 AVIEW
40 END

Cheers, Werner