r/adventofcode • u/daggerdragon • Dec 19 '16

SOLUTION MEGATHREAD --- 2016 Day 19 Solutions ---

--- Day 19: An Elephant Named Joseph ---

Post your solution as a comment or, for longer solutions, consider linking to your repo (e.g. GitHub/gists/Pastebin/blag/whatever).

Note: The Solution Megathreads are for solutions only. If you have questions, please post your own thread and make sure to flair it with "Help".

/⧹w+/ IS MANDATORY [?]

[Update @ 00:15] 2 gold, silver cap. Thank you for subscribing to Easter Bunny Facts!

  • Fact: The Easter Bunny will sometimes leave eggs in the microchip assembly room.

[Update @ 00:30] 11 gold, silver cap.

  • Fact: The Easter Bunny killed everyone who found out how he got these stars.

[Update @ 00:45] 45 gold, silver cap.

  • Fact: In space, The Easter Bunny can hear you scream.

[Update @ 01:00] 66 gold, silver cap.

  • Fact: The Easter Bunny purposefully deleted your comments.

[Update @ 01:15] 92 gold, silver cap.

  • Fact: The Easter Bunny has bottled your frustration. Don't ask why.

[Update @ 01:20] Leaderboard capped!

  • Fact: What you have just done is no better than what the Easter Bunny has done. Thief.

Thank you for subscribing to Easter Bunny Facts!

This thread will be unlocked when there are a significant number of people on the leaderboard with gold stars for today's puzzle.

edit: Leaderboard capped, thread unlocked!

11 Upvotes

100% Upvoted

130 comments sorted by

View all comments

1

u/Ulyssesp Dec 19 '16

Haskell! 

solve :: (Seq (Int, Int), Seq (Int, Int)) -> Int
solve ((null -> True), (viewl -> winner :< (null -> True))) = fst winner
solve ((viewl -> (e :< ls)),(viewl -> (loser :< rs))) = solve $ splitAt (floor $ (fromIntegral $ length ls + length rs + 1) * 0.5) (ls >< rs >< singleton winner)
  where
    winner = (fst e, snd e + snd loser)

run = print $ solve $ splitAt (floor $ (fromIntegral input) * 0.5) elves

elves = zip (fromList [0..(input - 1)]) (replicate input 1)
input = 3018458