diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-04-11 18:16:10 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-11 18:16:10 +0100 |
| commit | 9b775472a929a48799b166325aa85c831dd344cb (patch) | |
| tree | 52a0161922900d7a34dda7d052e040c6b18eb846 | |
| parent | 57f49cb563bf9dd5b3206b510ed249935e6c2369 (diff) | |
| parent | 141b4ca6ec4695386b56813dc58815c03b92c161 (diff) | |
| download | perlweeklychallenge-club-9b775472a929a48799b166325aa85c831dd344cb.tar.gz perlweeklychallenge-club-9b775472a929a48799b166325aa85c831dd344cb.tar.bz2 perlweeklychallenge-club-9b775472a929a48799b166325aa85c831dd344cb.zip | |
Merge pull request #5915 from E7-87-83/newt
improvement of codes in TWC 159
| -rw-r--r-- | challenge-159/cheok-yin-fung/java/Moebius.java | 2 | ||||
| -rw-r--r-- | challenge-159/cheok-yin-fung/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-159/cheok-yin-fung/perl/ch-2.pl | 6 |
3 files changed, 5 insertions, 5 deletions
diff --git a/challenge-159/cheok-yin-fung/java/Moebius.java b/challenge-159/cheok-yin-fung/java/Moebius.java index b52e049ca8..fbd6b0af30 100644 --- a/challenge-159/cheok-yin-fung/java/Moebius.java +++ b/challenge-159/cheok-yin-fung/java/Moebius.java @@ -9,6 +9,8 @@ public class Moebius int N = 1; try { N = Integer.parseInt(args[0]); + if (N<=0) + throw new ArithmeticException(); } catch (Exception e) { System.err.print("Please use a positive integer "); System.err.println("as your parameter."); diff --git a/challenge-159/cheok-yin-fung/perl/ch-1.pl b/challenge-159/cheok-yin-fung/perl/ch-1.pl index d6500f2c5f..111fb7b9a6 100644 --- a/challenge-159/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-159/cheok-yin-fung/perl/ch-1.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl # The Weekly Challenge 159 # Task 1 Farey Sequence - +# Usage: ch-1.pl $N # https://en.wikipedia.org/wiki/Farey_sequence#Next_term use v5.22.0; diff --git a/challenge-159/cheok-yin-fung/perl/ch-2.pl b/challenge-159/cheok-yin-fung/perl/ch-2.pl index 0d58c1eeb4..30bc47f822 100644 --- a/challenge-159/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-159/cheok-yin-fung/perl/ch-2.pl @@ -11,10 +11,8 @@ use POSIX; use constant PI => 2*acos(0); -if (defined($ARGV[0])) { - my $N = $ARGV[0]; - say "mu($N) = ", mo($N); -} +my $N = $ARGV[0] if defined($ARGV[0]); +say "mu($N) = ", mo($N) if defined($ARGV[0]); sub irn { |