From 2eedf165fbeb5289fea6c43fbe55b47a0d1ec8f8 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Wed, 19 May 2021 19:30:25 +0200
Subject: Allow negative numbers for week 113, part 2 (Perl, Lua)

---
 challenge-113/abigail/lua/ch-2.lua | 6 +++---
 challenge-113/abigail/perl/ch-1.pl | 2 --
 challenge-113/abigail/perl/ch-2.pl | 4 ++--
 3 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/challenge-113/abigail/lua/ch-2.lua b/challenge-113/abigail/lua/ch-2.lua
index 15aac1ac2d..5ba4c04ed9 100644
--- a/challenge-113/abigail/lua/ch-2.lua
+++ b/challenge-113/abigail/lua/ch-2.lua
@@ -10,16 +10,16 @@
 
 for line in io . lines () do
     local sum = 0
-    for  n in line : gmatch ("[0-9]+")
+    for  n in line : gmatch ("-?[0-9]+")
     do   sum = sum + tonumber (n)
     end
     local c = 0
-    for  n in line : gmatch ("[0-9]+")
+    for  n in line : gmatch ("-?[0-9]+")
     do   if   c > 0
          then io . write (" ")
          end
          c = c + 1
-         io . write (sum - n)
+         io . write (sum - tonumber (n))
     end
     io . write ("\n")
 end
diff --git a/challenge-113/abigail/perl/ch-1.pl b/challenge-113/abigail/perl/ch-1.pl
index 51a4842116..bb45261f33 100644
--- a/challenge-113/abigail/perl/ch-1.pl
+++ b/challenge-113/abigail/perl/ch-1.pl
@@ -70,8 +70,6 @@ use experimental 'lexical_subs';
 #
 # These are all the ls < $D so that $D does not divide 10 * l.
 
-my @l = ([], [],       [1],      [1 .. 2], [1],
-         [], [1 .. 2], [1 .. 6], [1 .. 3], [1 .. 8]);
 my @tens = (0, 0, 1, 2, 1, 0, 2, 6, 3, 8);
 
 MAIN: while (<>) {
diff --git a/challenge-113/abigail/perl/ch-2.pl b/challenge-113/abigail/perl/ch-2.pl
index 4d7eeece79..7aabcc4b13 100644
--- a/challenge-113/abigail/perl/ch-2.pl
+++ b/challenge-113/abigail/perl/ch-2.pl
@@ -14,7 +14,7 @@ use experimental 'lexical_subs';
 #
 
 #
-# Run as: perl ch-1.pl < input-file
+# Run as: perl ch-2.pl < input-file
 #
 
 #
@@ -34,6 +34,6 @@ use experimental 'lexical_subs';
 use List::Util qw [sum];
 
 while (<>) {
-    my $sum = sum my @num = /[0-9]+/g;
+    my $sum = sum my @num = /-?[0-9]+/g;
     say join " " => map {$sum - $_} @num;
 }
-- 
cgit