diff options
| author | Abigail <abigail@abigail.be> | 2021-11-29 02:13:37 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-11-29 02:13:37 +0100 |
| commit | cb9f7b3d9d98cc88f896c9c13f4dcc336b116112 (patch) | |
| tree | c15c3ea4e705b23cf969f998aff18a7bd131c1f4 | |
| parent | 7f540fc225db60bb70276b6f52ba6bc395db00b3 (diff) | |
| download | perlweeklychallenge-club-cb9f7b3d9d98cc88f896c9c13f4dcc336b116112.tar.gz perlweeklychallenge-club-cb9f7b3d9d98cc88f896c9c13f4dcc336b116112.tar.bz2 perlweeklychallenge-club-cb9f7b3d9d98cc88f896c9c13f4dcc336b116112.zip | |
Fixups
| -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) |