diff options
| -rw-r--r-- | challenge-248/bob-lied/perl/ch-1.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-248/bob-lied/perl/ch-1.pl b/challenge-248/bob-lied/perl/ch-1.pl index e6328dfcff..e202a54191 100644 --- a/challenge-248/bob-lied/perl/ch-1.pl +++ b/challenge-248/bob-lied/perl/ch-1.pl @@ -105,8 +105,7 @@ sub sd3($str, $char) while ( defined(my $next = shift @cloc) ) { my $diff = $next - $loc -1; - push @dist, 1 .. ceil($diff/2); - push @dist, reverse( 0 .. floor($diff/2)); + push @dist, (1 .. ceil($diff/2)), reverse( 0 .. floor($diff/2)); $loc = $next; } if ( $loc < $#s ) |