Perl golf

athas · Jan 6, 2025 · c115ba7 · c115ba7
1 parent 1e4bd89
commit c115ba7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/concieggs/filters/niels b/concieggs/filters/niels
@@ -6,4 +6,4 @@ use warnings;
 use utf8::all;
 use EggsML::EggsPI list => [qw(allAliases)];
 
-my %nielses = map { lc $_ => 1 } allAliases; while (<>) { s/\b(\S*)\b/$nielses{lc($1)} ? "Niels" : $1/ge; print; }
+my%nielses=map{lc$_=>1}allAliases;while(<>){s/\b(\S*)\b/$nielses{lc($1)}?"Niels":$1/ge;print}