From 02facb66da1ae70d8fa2c42c438fa0e17a2c24cc Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Fri, 4 Jul 2025 22:38:01 +0000
Subject: Task1 - Slightly less compact code

---
 challenge-328/perlboy1967/perl/ch1.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-328/perlboy1967/perl/ch1.pl b/challenge-328/perlboy1967/perl/ch1.pl
index 5c5acf09bd..35f624dcdc 100755
--- a/challenge-328/perlboy1967/perl/ch1.pl
+++ b/challenge-328/perlboy1967/perl/ch1.pl
@@ -22,8 +22,7 @@ use exact 'v5.32', -signatures;
 sub replaceAllQuestionMarks ($str) {
   sub _rep {
     my @c = map { $_ // '' } @_;
-    my @r = grep !/[$c[0]$c[1]]/, 'a' .. 'c';
-    return $c[0].$r[0].$c[1];
+    $c[0].(grep !/[$c[0]$c[1]]/,'a'..'c')[0].$c[1];
   }
   1 while ($str =~ s/(.)?\?(.)?/_rep($1,$2,$3)/e);
   return $str;
-- 
cgit