diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-11-29 01:29:12 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-11-29 01:29:12 +0000 |
| commit | 493b1fb75f303ac3a9eeca588860bb5364f48068 (patch) | |
| tree | db2efd6f54b64216d12e63511bff635ea9cb6d40 | |
| parent | 81dc514a2044a1cd2b2b8558bf20635e27f10024 (diff) | |
| parent | cb9f7b3d9d98cc88f896c9c13f4dcc336b116112 (diff) | |
| download | perlweeklychallenge-club-493b1fb75f303ac3a9eeca588860bb5364f48068.tar.gz perlweeklychallenge-club-493b1fb75f303ac3a9eeca588860bb5364f48068.tar.bz2 perlweeklychallenge-club-493b1fb75f303ac3a9eeca588860bb5364f48068.zip | |
Merge pull request #5300 from Abigail/abigail/week-140
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) |