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'.

1 files changed, 4 insertions, 1 deletions

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>;
 }