From 366baf745428924a7ebea30d0a4be57135dabfce Mon Sep 17 00:00:00 2001
From: Bob Lied <boblied+github@gmail.com>
Date: Sun, 17 Dec 2023 22:54:14 -0600
Subject: AOC 248 ch-1.pl combine push lines

---
 challenge-248/bob-lied/perl/ch-1.pl | 3 +--
 1 file changed, 1 insertion(+), 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 )
-- 
cgit