2020, tracking

1 files changed, 30 insertions, 0 deletions

diff --git a/2020/day6/declaration.pl b/2020/day6/declaration.pl
new file mode 100644
index 0000000..7c87461
--- /dev/null
+++ b/2020/day6/declaration.pl
@@ -0,0 +1,30 @@
+use strict;
+use warnings;
+use Smart::Comments;
+use DDP;
+use List::Util 'sum';
+
+my $batch;
+{
+    local $/;
+    open my $fh, '<', "input" or die "no input present, $!";
+    $batch = <$fh>;
+}
+
+my $total_yes = 0;
+
+while ($batch =~ m/((?:[^\n][\n]?)+)/gm ) {
+    my $group_answers = $1;
+    chomp $group_answers;
+
+    my %counts;
+    while ($group_answers =~ m/^(\w+)$/mg) {
+        my $person_answers = $1;
+        $counts{$_} = 1 for split(//, $person_answers);
+    }
+    # p %counts;
+
+    $total_yes += sum values %counts
+}
+
+print $total_yes;