in reply to regex/perl golf: loops
No recursive solution till now?! This has to be changed (for the sake of TIMTOWTDI, not golfing):
perlmonksrule(9); sub perlmonksrule { if ($_[0]) { perlmonksrule($_[0]-1); } $_ = (caller(0))[3]; s/sr/s r/; print /::(.*)$/,"!\n"; }
update: a more compact version here (without the usage of the function-name):
$a=9;a();sub a{a()if($a--);print"perlmonks rule!\n";}
|
---|
In Section
Seekers of Perl Wisdom