HHC 2018 Programming Contests

[Gerson W. Barbosa]

HP-48G/GX version:

Code:


%%HP: T(3)A(R)F(.);
\<< RCLF RAD { 190. 305. 454. 569. 949. } { 91. 371. 553. 833. 1015. } { 63. 259. 385. 581. 707. } 5. ROLL DUP DATE DUP ROT ROT DDAYS 1. 2.
  START DUP
  NEXT 3. \->LIST { 644. 924. 759. } MOD { } 1. 3.
  FOR i SWAP DUP i GET 1. 4.
    START DUP
    NEXT 5. \->LIST 6. ROLL SWAP - DUP 0. > *
    WHILE DUP HEAD NOT
    REPEAT TAIL
    END 1. GET ROT +
  NEXT SWAP DROP SORT OBJ\-> DROP DROP2 DATE+ DUP ROT ROT DDAYS \pi * DUP DUP 3. \->LIST { 11.5 14. 16.5 } / SIN 100. * 0. RND ROT STOF
\>>

476.5 bytes, # 7FDEh