HHC 2018 Programming Contests

[Thomas Klemm]

(10-07-2018 01:46 PM)David Hayden Wrote:  

Code:

« MIN » STREAM

Stealing this idea I managed to combine filtering and sorting into a single reducing:

Code:

«
  DATE DDAYS
  {
    { 63 259 385 }
    { 190 305 454 569 949 }
    { 91 371 553 }
  }
  OVER
  { 322 759 462 } MOD 2
  « - EVAL
  » DOLIST
  «
    IF DUP2 MIN 0 ≤
    THEN MAX
    ELSE MIN
    END
  » STREAM
  DATE OVER DATE+ ROT ROT +
  360 * { 23 28 33 } / SIN 100 * 0 RND
»

Cheers
Thomas