diff options
| author | Bob Lied <boblied+github@gmail.com> | 2023-12-17 22:54:14 -0600 |
|---|---|---|
| committer | Bob Lied <boblied+github@gmail.com> | 2023-12-17 22:54:14 -0600 |
| commit | 366baf745428924a7ebea30d0a4be57135dabfce (patch) | |
| tree | b3286c0d2b2296ee5e1aebe8f44c851f8f085dee | |
| parent | 268bf42627a7fe696e04881b794a0e17455bebed (diff) | |
| download | perlweeklychallenge-club-366baf745428924a7ebea30d0a4be57135dabfce.tar.gz perlweeklychallenge-club-366baf745428924a7ebea30d0a4be57135dabfce.tar.bz2 perlweeklychallenge-club-366baf745428924a7ebea30d0a4be57135dabfce.zip | |
AOC 248 ch-1.pl combine push lines
| -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 ) |