From: Jan "Yenya" Kasprzak Date: Thu, 17 Dec 2020 06:07:33 +0000 (+0100) Subject: Day 17 X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=8f222dad784fdcc74a5051370035ba79273409d4;p=aoc2020.git Day 17 --- diff --git a/33.pl b/33.pl new file mode 100755 index 0000000..c8085ae --- /dev/null +++ b/33.pl @@ -0,0 +1,75 @@ +#!/usr/bin/perl -w + +use strict; + +my $is_active; + +my ($min_x, $min_y, $min_z) = (-1, -1, -1); +my ($max_x, $max_y, $max_z) = (0, 0, 1); + +my $y = 0; +while (<>) { + chomp; + my $x = 0; + for (split //) { + $is_active->{"$x,$y,0"} = 1 + if $_ eq '#'; + print "Active $x,$y,0\n"; + $x++; + } + $max_x = $x; + $y++; +} +$max_y = $y; + +my $iter = 0; +while ($iter < 6) { + my $new_active; + my ($new_min_x, $new_min_y, $new_min_z) = ($max_x, $max_y, $max_z); + my ($new_max_x, $new_max_y, $new_max_z) = ($min_x, $min_y, $min_z); + print "iter $iter x=$min_x:$max_x, y=$min_y:$max_y, z=$min_z:$max_z\n"; + for my $z ($min_z .. $max_z) { + for my $y ($min_y .. $max_y) { + for my $x ($min_x .. $max_x) { + # print "Trying $x,$y,$z\n"; + my $count = 0; + for my $neigh ( + [-1, -1, -1], [-1, -1, 0], [-1, -1, 1], + [-1, 0, -1 ], [-1, 0, 0], [-1, 0, 1], + [-1, 1, -1 ], [-1, 1, 0], [-1, 1, 1], + [0, -1, -1], [0, -1, 0], [0, -1, 1], + [0, 0, -1 ], [0, 0, 1], + [0, 1, -1 ], [0, 1, 0], [0, 1, 1], + [1, -1, -1], [1, -1, 0], [1, -1, 1], + [1, 0, -1 ], [1, 0, 0], [1, 0, 1], + [1, 1, -1 ], [1, 1, 0], [1, 1, 1],) { + my ($nx, $ny, $nz) = @$neigh; + $nx += $x; $ny += $y; $nz += $z; + $count++ if $is_active->{"$nx,$ny,$nz"}; + } + # print "$count neighbours\n"; + if (($is_active->{"$x,$y,$z"} && ($count == 2 || $count == 3)) + || (!$is_active->{"$x,$y,$z"} && $count == 3)) { + $new_active->{"$x,$y,$z"} = 1; + # print "new active: $x, $y, $z\n"; + $new_min_x = $x if $x < $new_min_x; + $new_min_y = $y if $y < $new_min_y; + $new_min_z = $z if $z < $new_min_z; + $new_max_x = $x if $x > $new_max_x; + $new_max_y = $y if $y > $new_max_y; + $new_max_z = $z if $z > $new_max_z; + } + } } } + $min_x = $new_min_x-1; + $min_y = $new_min_y-1; + $min_z = $new_min_z-1; + $max_x = $new_max_x+1; + $max_y = $new_max_y+1; + $max_z = $new_max_z+1; + + $is_active = $new_active; + $iter++; +} + +print "Acive: ", scalar keys %$is_active, "\n"; + diff --git a/34.pl b/34.pl new file mode 100755 index 0000000..501265c --- /dev/null +++ b/34.pl @@ -0,0 +1,79 @@ +#!/usr/bin/perl -w + +use strict; + +my $is_active; + +my ($min_x, $min_y, $min_z, $min_q) = (-1, -1, -1, -1); +my ($max_x, $max_y, $max_z, $max_q) = (0, 0, 1, 1); + +my $y = 0; +while (<>) { + chomp; + my $x = 0; + for (split //) { + $is_active->{"$x,$y,0,0"} = 1 + if $_ eq '#'; + print "Active $x,$y,0,0\n"; + $x++; + } + $max_x = $x; + $y++; +} +$max_y = $y; + +my $iter = 0; +while ($iter < 6) { + my $new_active; + my ($new_min_x, $new_min_y, $new_min_z, $new_min_q) + = ($max_x, $max_y, $max_z, $max_q); + my ($new_max_x, $new_max_y, $new_max_z, $new_max_q) + = ($min_x, $min_y, $min_z, $min_q); + print "iter $iter x=$min_x:$max_x, y=$min_y:$max_y, z=$min_z:$max_z, q=$min_q:$max_q\n"; + for my $q ($min_q .. $max_q) { + for my $z ($min_z .. $max_z) { + for my $y ($min_y .. $max_y) { + for my $x ($min_x .. $max_x) { + # print "Trying $x,$y,$z,$q: "; + my $count = 0; + for my $nx (-1 .. 1) { + for my $ny (-1 .. 1) { + for my $nz (-1 .. 1) { + for my $nq (-1 .. 1) { + next if $nx == 0 && $ny == 0 && $nz == 0 && $nq == 0; + my $mx = $nx + $x; + my $my = $ny + $y; + my $mz = $nz + $z; + my $mq = $nq + $q; + $count++ if $is_active->{"$mx,$my,$mz,$mq"}; + } } } } + # print "$count neighbours\n"; + if (($is_active->{"$x,$y,$z,$q"} && ($count == 2 || $count == 3)) + || (!$is_active->{"$x,$y,$z,$q"} && $count == 3)) { + $new_active->{"$x,$y,$z,$q"} = 1; + # print "new active: $x, $y, $z, $q\n"; + $new_min_x = $x if $x < $new_min_x; + $new_min_y = $y if $y < $new_min_y; + $new_min_z = $z if $z < $new_min_z; + $new_min_q = $q if $q < $new_min_q; + $new_max_x = $x if $x > $new_max_x; + $new_max_y = $y if $y > $new_max_y; + $new_max_z = $z if $z > $new_max_z; + $new_max_q = $q if $q > $new_max_q; + } + } } } } + $min_x = $new_min_x-1; + $min_y = $new_min_y-1; + $min_z = $new_min_z-1; + $min_q = $new_min_q-1; + $max_x = $new_max_x+1; + $max_y = $new_max_y+1; + $max_z = $new_max_z+1; + $max_q = $new_max_q+1; + + $is_active = $new_active; + $iter++; +} + +print "Acive: ", scalar keys %$is_active, "\n"; +