aoc2021

Advent of Code 2021 solutions in Perl.
git clone git://git.samirparikh.com/aoc2021
Log | Files | Refs | README

commit e02622e3ac6a9f7e5224efef7bd6f66a89f8e35b
parent bb3b36bbe05a9542e4d58a6121801734fa2b1b14
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Wed,  1 Dec 2021 21:53:26 +0000

remove day01-1.pl

Diffstat:
Dday01-1.pl | 16----------------
1 file changed, 0 insertions(+), 16 deletions(-)

diff --git a/day01-1.pl b/day01-1.pl @@ -1,16 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; -use v5.22; - -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: $!"; - -chomp( my @input = ( <$filehandle> ) ); -say scalar( grep { $input[$_] > $input[$_ - 1] } (1 .. $#input) );