diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2022-03-24 12:37:15 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2022-03-24 12:37:15 +0800 |
| commit | b68252c4cad91b699d60bcc7718902211fe39c34 (patch) | |
| tree | d7697d7f2d73466218be37d2aeba12d5f73ef953 | |
| parent | 50ff2a3572506d2aedd983ccc37096669ae622b6 (diff) | |
| download | perlweeklychallenge-club-b68252c4cad91b699d60bcc7718902211fe39c34.tar.gz perlweeklychallenge-club-b68252c4cad91b699d60bcc7718902211fe39c34.tar.bz2 perlweeklychallenge-club-b68252c4cad91b699d60bcc7718902211fe39c34.zip | |
variables
| -rw-r--r-- | challenge-157/cheok-yin-fung/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-157/cheok-yin-fung/perl/ch-2.pl b/challenge-157/cheok-yin-fung/perl/ch-2.pl index bcd6923fda..9f9aeb2a2e 100644 --- a/challenge-157/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-157/cheok-yin-fung/perl/ch-2.pl @@ -8,7 +8,7 @@ my $N = $ARGV[0] || 10; my $ans = find($N); if ($ans) { - say "$N is a repdigit in base-", find($N), "; therefore it's Brazilian."; + say "$N is a repdigit in base-", $ans, "; therefore it's Brazilian."; } else { say "$N is not a Brazilian number." |