From 3957a4fbac71408ac235fff57696f9bf84eea053 Mon Sep 17 00:00:00 2001 From: drbaggy Date: Sat, 13 Feb 2021 01:00:24 +0000 Subject: golfed even harder! --- challenge-097/james-smith/perl/ch-2.pl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/challenge-097/james-smith/perl/ch-2.pl b/challenge-097/james-smith/perl/ch-2.pl index aa1f3cfb02..42e29e5a59 100644 --- a/challenge-097/james-smith/perl/ch-2.pl +++ b/challenge-097/james-smith/perl/ch-2.pl @@ -152,10 +152,11 @@ sub mf_1{[local$/=length$_[0],local$\=$//$_[1],map{$/=$_<$/?$_:$/}map{($_[0]^$_) sub mf_2{[local$/=length$_[0],local$\=$//$_[1],map{$/=$_<$/?$_:$/}map{($_[0]^$_) =~y/\1/\1/}map{$_ x$\}map{substr$_[0],$_,$_[1]}map{$_*$_[1]}0..$\-1]->[-1]} -## Golf extra (less readable!) [at 135 characters] - 125 inside the curly braces.. -sub mf_g{[local$/=length$_[0],local$\=$//$_[1],map{$/=$_<$/? -$_:$/}map{($_[0]^substr($_[0],$_*$_[1],$_[1])x$\)=~y/\1/\1/} -0..$\-1]->[-1]} +## Golf extra (less readable!) [at 125 characters] - 115 inside the curly braces.. +## but side effects as no longer localise $/ & $\ +sub mf_g{[$/=length$_[0],$\=$//$_[1],map{$/=$_<$/?$_:$/}map{ +($_[0]^substr($_[0],$_*$_[1],$_[1])x$\)=~y/\1/\1/}0..$\-1]-> +[-1]} sub mf_3{[local$/=length$_[0],local$\=$//$_[1],map{$/=$_<$/? $_:$/}map{($_[0]^$_)=~y/\1/\1/}map{$_ x$\}map{substr$_[0],$_ -- cgit