HHC 2018 Programming Contests

[Gerson W. Barbosa]

(10-06-2018 12:48 PM)Thomas Klemm Wrote:  Meanwhile I came up with something between your and 3298's solution:

Code:

«
  DATE DDAYS
  {
    { 63 259 385 }
    { 190 305 454 569 949 }
    { 91 371 553 }
  }
  OVER
  { 322 759 462 } MOD
  2
  « -
    WHILE DUP HEAD DUP 0 ≤
    REPEAT DROP TAIL
    END SWAP DROP
  » DOLIST
  SORT HEAD DATE OVER DATE+ ROT ROT +
  360 * { 23 28 33 } / SIN 100 * 0 RND
»

I was getting wrong biorhythm results until I noticed my angle mode was set to RAD. Preserving the user’s settings and forcing DEG mode makes your program 367 bytes long, which is quite an improvement over mine. Well done!

Code:


« DATE DDAYS RCLF SWAP DEG { { 63. 259. 385. } 
{ 190. 305. 454. 569. 949. } { 91. 371. 553. } } OVER
 { 322. 759. 462. } MOD 2.
  « -
    WHILE DUP HEAD DUP 0. ≤
    REPEAT DROP TAIL
    END SWAP DROP
  » DOLIST SORT HEAD DATE OVER DATE+ ROT ROT +
 360. * { 23. 28. 33. } / SIN 100. * 0. RND ROT STOF
»

Gerson.