From 8192d5e5cb81c51ab28598c97f6412de24de8205 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <65567640+PerlBoy1967@users.noreply.github.com>
Date: Tue, 29 Jun 2021 21:35:19 +0200
Subject: Update ch-1.pl

It appears 'slide()' changed over time???

The idea is still the same but hopefully this version is okay across versions of 'List::MoreUtils'.
---
 challenge-117/perlboy1967/perl/ch-1.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/challenge-117/perlboy1967/perl/ch-1.pl b/challenge-117/perlboy1967/perl/ch-1.pl
index 109b8e42e7..a19af8d516 100755
--- a/challenge-117/perlboy1967/perl/ch-1.pl
+++ b/challenge-117/perlboy1967/perl/ch-1.pl
@@ -25,5 +25,8 @@ sub missingRows {
   
   open(my $fh,'<',$f) || die;
 
-  return grep /\d/,slide{($a+1..$b-1)if($b-$a>1)}sort{$a<=>$b}map{/^(\d+)/;$_=$1}<$fh>;
+  return map { @$_ } slide {$b - $a > 1 ? [$a + 1 .. $b - 1] : [] }
+                     sort { $a <=> $b }
+                     map { /^(\d+)/; $_ = $1 }
+                     <$fh>;
 }
-- 
cgit