From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
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/?p=aoc2020.git;a=commitdiff_plain;h=8f222dad784fdcc74a5051370035ba79273409d4

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";
+