Clock Hands Challenge

[RMollov]

[quote='xerxes' pid='113402' dateline='1551968341']
A more compact version with Joe's suggestion:

Code:

INPUT H
H=MOD(H,12)
F=12/11
IF H<6 THEN D=-6 ELSE D=6 
PRINT DMS(H*F)
PRINT DMS((H-D)*F+D)

Very elegant! Based on it here is my RPN (HP42S/DM42) take:

Code:


00 { 39-Byte Prgm }
01▶LBL "CLOCK"
02 IP
03 12
04 MOD
05 6
06 X>Y?
07 +/-
08 LASTX
09 11
10 ÷
11 R^
12 RCL× ST Y
13 →HMS
14 R^
15 RCL- ST T
16 RCL× ST Z
17 RCL+ ST T
18 →HMS
19 END

Cheers