aoc2021

commit 44c1283941f94fc997dc5625192ae7a89456106f
parent 0c04f3a8d45e912ae13fa676a295705b3cdf678e
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Sun, 26 Dec 2021 16:45:58 +0000

initial commit for day11-1.pl

Diffstat:
A
day11-1.pl
 | 
27
+++++++++++++++++++++++++++

1 file changed, 27 insertions(+), 0 deletions(-)
diff --git a/day11-1.pl b/day11-1.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use v5.22;
+use Math::BigInt;
+
+# Day 11, Part 1
+
+sub get_filehandle {
+  if (@ARGV !=1) {
+    die "Usage: $0 [input-filename]";
+  }
+  my $input_filename = $ARGV[0];
+  open my $filehandle, '<', $input_filename or
+    die "Could not open input file $input_filename: $!";
+  return $filehandle;
+}
+
+
+my $filehandle  =  get_filehandle();
+# add extra column of negative infinity
+my @octopuses   =  map{ [m/\d/g, "-inf"] } <$filehandle>;
+my $columns     =  @{$octopuses[0]};
+# add extra row of negative infinity
+push @octopuses => [ ("-inf") x $columns ];
+my $rows        =  @octopuses;