|
|
|
| Pathologically Eclectic Rubbish Lister | |
| PerlMonks |
Re: SHORTER Useless codeby BooK (Curate) |
| on Mar 14, 2001 at 16:14 UTC ( [id://64368]=note: print w/replies, xml ) | Need Help?? |
|
I am sorry to disappoint you, arhuman, but the following is not shorter (94 bytes, darn scalar)... But well, it's recursive... and just another way to do it. <code> sub _{($x,$_)=@_;s/(.*)\n/\n $1@/g;$x>40?x:_($x+2,scalar reverse'@'x$x."\n$_\n".$"x$x)}_;print <code>Change the 40 for smaller or bigger spirals...
In Section
Obfuscated Code
|
|
||||||||||||||||||||||||||