note
Ratazong
<p>No recursive solution till now?! This has to be changed (for the sake of TIMTOWTDI, not golfing):
<code>
perlmonksrule(9);
sub perlmonksrule
{
if ($_[0]) { perlmonksrule($_[0]-1); }
$_ = (caller(0))[3];
s/sr/s r/;
print /::(.*)$/,"!\n";
}
</code>
</p>
<p>
<b>update:</b> a more compact version here (without the usage of the function-name):
<code>
$a=9;a();sub a{a()if($a--);print"perlmonks rule!\n";}
</code>
</p>
967162
967162