commit e02622e3ac6a9f7e5224efef7bd6f66a89f8e35b parent bb3b36bbe05a9542e4d58a6121801734fa2b1b14 Author: Samir Parikh <noreply@samirparikh.com> Date: Wed, 1 Dec 2021 21:53:26 +0000 remove day01-1.pl Diffstat:
D | day01-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) );