|
|
|
| Think about Loose Coupling | |
| PerlMonks |
Re: SHORTER Useless codeby BooK (Curate) |
| on Mar 14, 2001 at 11:14 UTC ( [id://64368]=note: print w/replies, xml ) | Need Help?? |
This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.
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
|
|
||||||||||||||||||||||||||||