From cb9f7b3d9d98cc88f896c9c13f4dcc336b116112 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 29 Nov 2021 02:13:37 +0100
Subject: Fixups

---
 challenge-140/abigail/perl/ch-2.pl    | 2 +-
 challenge-140/abigail/scheme/ch-2.scm | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-140/abigail/perl/ch-2.pl b/challenge-140/abigail/perl/ch-2.pl
index 91d052e4e5..99f84c91ea 100644
--- a/challenge-140/abigail/perl/ch-2.pl
+++ b/challenge-140/abigail/perl/ch-2.pl
@@ -38,7 +38,7 @@ use experimental 'lexical_subs';
 
 use Math::Prime::Util qw [fordivisors];
 
-MAIN: while (<>) {
+while (<>) {
     my ($n, $i, $j, $k) = (0, split);
     fordivisors {$_ <= $i && $n / $_ <= $j && !-- $k && say $n} ++ $n
            while $k >= 1;
diff --git a/challenge-140/abigail/scheme/ch-2.scm b/challenge-140/abigail/scheme/ch-2.scm
index c38d93c582..bea9446969 100644
--- a/challenge-140/abigail/scheme/ch-2.scm
+++ b/challenge-140/abigail/scheme/ch-2.scm
@@ -57,6 +57,5 @@
     )
 )
 
-;; (display (divisors 12 10 10))(newline)
 
 (main)
-- 
cgit