diff options
| -rw-r--r-- | challenge-140/abigail/perl/ch-2.pl | 2 | ||||
| -rw-r--r-- | challenge-140/abigail/scheme/ch-2.scm | 1 |
2 files changed, 1 insertions, 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) |