diff options
| -rwxr-xr-x | challenge-194/perlboy1967/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-194/perlboy1967/perl/ch-1.pl b/challenge-194/perlboy1967/perl/ch-1.pl index ba79036fb6..14813849a8 100755 --- a/challenge-194/perlboy1967/perl/ch-1.pl +++ b/challenge-194/perlboy1967/perl/ch-1.pl @@ -29,8 +29,8 @@ sub highestDigit ($) { } else { my $i = index($_[0],'?'); if (0) { } # Do nothing, just look pretty in code - elsif ($i == 0) { return substr($_[0],1,1) < 4 ? 2 : 1 } - elsif ($i == 1) { return substr($_[0],0,1) == 2 ? 3 : 9 } + elsif ($i == 0) { return substr($_[0],1,1) < 4 ? 2 : 1 } + elsif ($i == 1) { return substr($_[0],0,1) < 2 ? 9 : 3 } elsif ($i == 2) { return -1 } elsif ($i == 3) { return 5 } elsif ($i == 4) { return 9 } |