diff options
| -rw-r--r-- | challenge-159/cheok-yin-fung/perl/ch-2.pl | 6 |
1 files changed, 2 insertions, 4 deletions
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 { |