From 25281404f12169cadce4a96f0752d8deb35b4059 Mon Sep 17 00:00:00 2001 From: Yanick Champoux Date: Wed, 6 Dec 2017 12:48:31 -0500 Subject: [PATCH] day14 --- 2015/13/1.pl | 21 ++++++++++++++++++ 2015/13/2.pl | 23 +++++++++++++++++++ 2015/13/input.txt | 56 +++++++++++++++++++++++++++++++++++++++++++++++ 2015/14/1.pl | 23 +++++++++++++++++++ 2015/14/2.pl | 26 ++++++++++++++++++++++ 2015/14/input.txt | 9 ++++++++ 6 files changed, 158 insertions(+) create mode 100644 2015/13/1.pl create mode 100644 2015/13/2.pl create mode 100644 2015/13/input.txt create mode 100644 2015/14/1.pl create mode 100644 2015/14/2.pl create mode 100644 2015/14/input.txt diff --git a/2015/13/1.pl b/2015/13/1.pl new file mode 100644 index 0000000..8f7eb82 --- /dev/null +++ b/2015/13/1.pl @@ -0,0 +1,21 @@ +use 5.20.0; +my %happiness; + +while(<>) { + /(?\S+).*(?gain|lose) (?\d+).*?(?\S+)\.$/; + $happiness{$+{from}}{$+{to}} = $+{happiness} * ( $+{gain} eq 'gain' ? 1 : -1 ); +} + +use Algorithm::Combinatorics qw/ circular_permutations /; +use List::AllUtils qw/ max sum /; + +say max map { happiness_for($_) } circular_permutations([ keys %happiness ]); + +sub happiness_for { + my @group = @{ $_[0] }; + + sum map { + my $who = $group[$_]; + map { $happiness{$who}{$group[ $_ ]} } map { $_ % @group } $_+1, $_ + @group - 1; + } 0..$#group; +} diff --git a/2015/13/2.pl b/2015/13/2.pl new file mode 100644 index 0000000..3711e8f --- /dev/null +++ b/2015/13/2.pl @@ -0,0 +1,23 @@ +use 5.20.0; +my %happiness; + +while(<>) { + /(?\S+).*(?gain|lose) (?\d+).*?(?\S+)\.$/; + $happiness{$+{from}}{$+{to}} = $+{happiness} * ( $+{gain} eq 'gain' ? 1 : -1 ); +} + +$happiness{yanick}{''} = 0; + +use Algorithm::Combinatorics qw/ circular_permutations /; +use List::AllUtils qw/ max sum /; + +say max map { happiness_for($_) } circular_permutations([ keys %happiness ]); + +sub happiness_for { + my @group = @{ $_[0] }; + + sum map { + my $who = $group[$_]; + map { $happiness{$who}{$group[ $_ ]} } map { $_ % @group } $_+1, $_ + @group - 1; + } 0..$#group; +} diff --git a/2015/13/input.txt b/2015/13/input.txt new file mode 100644 index 0000000..35be357 --- /dev/null +++ b/2015/13/input.txt @@ -0,0 +1,56 @@ +Alice would gain 54 happiness units by sitting next to Bob. +Alice would lose 81 happiness units by sitting next to Carol. +Alice would lose 42 happiness units by sitting next to David. +Alice would gain 89 happiness units by sitting next to Eric. +Alice would lose 89 happiness units by sitting next to Frank. +Alice would gain 97 happiness units by sitting next to George. +Alice would lose 94 happiness units by sitting next to Mallory. +Bob would gain 3 happiness units by sitting next to Alice. +Bob would lose 70 happiness units by sitting next to Carol. +Bob would lose 31 happiness units by sitting next to David. +Bob would gain 72 happiness units by sitting next to Eric. +Bob would lose 25 happiness units by sitting next to Frank. +Bob would lose 95 happiness units by sitting next to George. +Bob would gain 11 happiness units by sitting next to Mallory. +Carol would lose 83 happiness units by sitting next to Alice. +Carol would gain 8 happiness units by sitting next to Bob. +Carol would gain 35 happiness units by sitting next to David. +Carol would gain 10 happiness units by sitting next to Eric. +Carol would gain 61 happiness units by sitting next to Frank. +Carol would gain 10 happiness units by sitting next to George. +Carol would gain 29 happiness units by sitting next to Mallory. +David would gain 67 happiness units by sitting next to Alice. +David would gain 25 happiness units by sitting next to Bob. +David would gain 48 happiness units by sitting next to Carol. +David would lose 65 happiness units by sitting next to Eric. +David would gain 8 happiness units by sitting next to Frank. +David would gain 84 happiness units by sitting next to George. +David would gain 9 happiness units by sitting next to Mallory. +Eric would lose 51 happiness units by sitting next to Alice. +Eric would lose 39 happiness units by sitting next to Bob. +Eric would gain 84 happiness units by sitting next to Carol. +Eric would lose 98 happiness units by sitting next to David. +Eric would lose 20 happiness units by sitting next to Frank. +Eric would lose 6 happiness units by sitting next to George. +Eric would gain 60 happiness units by sitting next to Mallory. +Frank would gain 51 happiness units by sitting next to Alice. +Frank would gain 79 happiness units by sitting next to Bob. +Frank would gain 88 happiness units by sitting next to Carol. +Frank would gain 33 happiness units by sitting next to David. +Frank would gain 43 happiness units by sitting next to Eric. +Frank would gain 77 happiness units by sitting next to George. +Frank would lose 3 happiness units by sitting next to Mallory. +George would lose 14 happiness units by sitting next to Alice. +George would lose 12 happiness units by sitting next to Bob. +George would lose 52 happiness units by sitting next to Carol. +George would gain 14 happiness units by sitting next to David. +George would lose 62 happiness units by sitting next to Eric. +George would lose 18 happiness units by sitting next to Frank. +George would lose 17 happiness units by sitting next to Mallory. +Mallory would lose 36 happiness units by sitting next to Alice. +Mallory would gain 76 happiness units by sitting next to Bob. +Mallory would lose 34 happiness units by sitting next to Carol. +Mallory would gain 37 happiness units by sitting next to David. +Mallory would gain 40 happiness units by sitting next to Eric. +Mallory would gain 18 happiness units by sitting next to Frank. +Mallory would gain 7 happiness units by sitting next to George. diff --git a/2015/14/1.pl b/2015/14/1.pl new file mode 100644 index 0000000..ec3672c --- /dev/null +++ b/2015/14/1.pl @@ -0,0 +1,23 @@ +use 5.20.0; +use List::AllUtils qw/ max/; +use experimental qw/ postderef /; +use List::UtilsBy qw/ max_by /; + +my %reindeer = + map { $_->[0] => [ ($_->[1]) x $_->[2], ( 0 ) x $_->[3] ] } + map { [ /(\S+).*?(\d+).*?(\d+).*?(\d+)/ ] } <>; + +use DDP; +p %reindeer; + +my %score; + +for ( 0..2502 ) { + while( my( $r, $s ) = each %reindeer ) { + $score{$r} += $reindeer{$r}[ $_ % $reindeer{$r}->@* ] + } +} + +say max values %score; + + diff --git a/2015/14/2.pl b/2015/14/2.pl new file mode 100644 index 0000000..d7a8f4c --- /dev/null +++ b/2015/14/2.pl @@ -0,0 +1,26 @@ +use 5.20.0; +use List::AllUtils qw/ max/; +use experimental qw/ postderef /; +use List::UtilsBy qw/ max_by /; + +my %reindeer = + map { $_->[0] => [ ($_->[1]) x $_->[2], ( 0 ) x $_->[3] ] } + map { [ /(\S+).*?(\d+).*?(\d+).*?(\d+)/ ] } <>; + +use DDP; +p %reindeer; + +my %dist; +my %score; + +for ( 0..2502 ) { + while( my( $r, $s ) = each %reindeer ) { + $dist{$r} += $reindeer{$r}[ $_ % $reindeer{$r}->@* ] + } + my $max = max values %dist; + $score{$_}++ for grep { $dist{$_} == $max } keys %dist; +} + +say max values %score; + + diff --git a/2015/14/input.txt b/2015/14/input.txt new file mode 100644 index 0000000..6cf5489 --- /dev/null +++ b/2015/14/input.txt @@ -0,0 +1,9 @@ +Dancer can fly 27 km/s for 5 seconds, but then must rest for 132 seconds. +Cupid can fly 22 km/s for 2 seconds, but then must rest for 41 seconds. +Rudolph can fly 11 km/s for 5 seconds, but then must rest for 48 seconds. +Donner can fly 28 km/s for 5 seconds, but then must rest for 134 seconds. +Dasher can fly 4 km/s for 16 seconds, but then must rest for 55 seconds. +Blitzen can fly 14 km/s for 3 seconds, but then must rest for 38 seconds. +Prancer can fly 3 km/s for 21 seconds, but then must rest for 40 seconds. +Comet can fly 18 km/s for 6 seconds, but then must rest for 103 seconds. +Vixen can fly 18 km/s for 5 seconds, but then must rest for 84 seconds.