diff options
| -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." |