From 84c7bfa77abe7887183fd8920d59c4c4e4d65ca8 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Thu, 1 Dec 2022 06:06:27 +0100 Subject: [PATCH] Day 1 --- 2022/01.pl | 19 +++++++++++++++++++ 2022/02.pl | 20 ++++++++++++++++++++ 2 files changed, 39 insertions(+) create mode 100755 2022/01.pl create mode 100755 2022/02.pl diff --git a/2022/01.pl b/2022/01.pl new file mode 100755 index 0000000..e96e23f --- /dev/null +++ b/2022/01.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w + +use v5.36; +use strict; +use experimental 'multidimensional'; +use List::Util qw(sum); + +local $/ = "\n\n"; + +chomp (my @elves = <>); +my $max = 0; + +for my $elf (@elves) { + my $s = sum split(/\n/, $elf); + $max = $s if $max < $s; +} + +say $max; + diff --git a/2022/02.pl b/2022/02.pl new file mode 100755 index 0000000..c6de31b --- /dev/null +++ b/2022/02.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w + +use v5.36; +use strict; +use experimental 'multidimensional'; +use List::Util qw(sum); + +local $/ = "\n\n"; + +chomp (my @elves = <>); +my @l; + +for my $elf (@elves) { + my $s = sum split(/\n/, $elf); + push @l, $s; +} + +@l = sort { $b <=> $a } @l; +say sum splice (@l, 0, 3); + -- 2.43.0