HHC 2018 Programming Contests

[Gerson W. Barbosa]

(10-06-2018 10:14 AM)Thomas Klemm Wrote:  

(10-05-2018 07:23 PM)Gerson W. Barbosa Wrote:  “1 n-1 START DUP NEXT n” as a replacement for NDUPN was done mechanically when I realized the HP-48 lacked it.

You don't even need that since lists can handle that:

Code:

\<< 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
  { 644 924 759 } MOD
  { } 1 3
  FOR i SWAP DUP i GET
    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 *
  { 11.5 14 16.5 } / SIN 100 * 0 RND ROT STOF
\>>

Cheers
Thomas

---

Just noticed that:

Code:

SORT OBJ\-> DROP DROP2

could be replaced by:

Code:

SORT HEAD

This saves 47 bytes overall. 429.5 bytes on the 48G/GX and 422 bytes on the 50g (using UNROT for ROT ROT and NIP for SWAP DROP).

Thank you very much!

Gerson.