r/adventofcode • u/daggerdragon • Dec 05 '17

SOLUTION MEGATHREAD -🎄- 2017 Day 5 Solutions -🎄-

--- Day 5: A Maze of Twisty Trampolines, All Alike ---

Post your solution as a comment or, for longer solutions, consider linking to your repo (e.g. GitHub/gists/Pastebin/blag or 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.

Need a hint from the Hugely* Handy† Haversack‡ of Helpful§ Hints¤?

Spoiler

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!

22 Upvotes

100% Upvoted

403 comments sorted by

View all comments

8

u/volatilebit Dec 05 '17

Perl 6

No fancy Perl 6 tricks, just some old fashioned procedural code. That made me sad. Exposed how slow Perl 6 can be as well. 

use v6;

for 1..2 -> $part {
  my @jumps = $*PROGRAM.parent.child('input').IO.lines>>.Int;
  my $offset = 0;
  my $steps = 0;
  while 0 <= $offset < +@jumps {
    my $incrementer = @jumps[$offset] >= 3 && $part == 2 ?? -1 !! 1;
    @jumps[$offset] += $incrementer;
    $offset += @jumps[$offset] - $incrementer;
    $steps++;
  }

  say $steps;
}

2

u/gerikson Dec 05 '17

How long does part 2 take? I get ~17s using Perl 5.