diff options
| -rwxr-xr-x | challenge-217/perlboy1967/perl/ch2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-217/perlboy1967/perl/ch2.pl b/challenge-217/perlboy1967/perl/ch2.pl index 9bda146726..60d238fdf7 100755 --- a/challenge-217/perlboy1967/perl/ch2.pl +++ b/challenge-217/perlboy1967/perl/ch2.pl @@ -23,7 +23,7 @@ use common::sense; use Test::More; sub maxNumber (@) { - join('',sort{"$b$a"<=>"$a$b"}@_); + join('',sort{$b.$a<=>$a.$b}@_); } is(maxNumber(1,23),231); |