From 0f3f1e13ceb7a3942cfcc6174faf9d582e90b830 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Thu, 17 Jun 2021 19:55:52 +0000
Subject: ... remove clutter from regexp ...

---
 challenge-117/perlboy1967/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-117/perlboy1967/perl/ch-1.pl b/challenge-117/perlboy1967/perl/ch-1.pl
index b268b229c6..1a22567af0 100755
--- a/challenge-117/perlboy1967/perl/ch-1.pl
+++ b/challenge-117/perlboy1967/perl/ch-1.pl
@@ -24,5 +24,5 @@ printf "Missing row number(s) of file '%s' is/are '%s'\n",
 sub missingRows {
   my ($f) = @_;
 
-  return grep /\d/,slide{($a+1..$b-1)if($b-$a>1)}sort{$a<=>$b}map{/^(\d+).*/;$_=$1}read_file($f);
+  return grep /\d/,slide{($a+1..$b-1)if($b-$a>1)}sort{$a<=>$b}map{/^(\d+)/;$_=$1}read_file($f);
 }
-- 
cgit