Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

DNA (sorta)

by zdog (Priest)
on Oct 20, 2001 at 01:12 UTC ( #120152=obfuscated: print w/ replies, xml ) Need Help??

Okay, this is a little two line program that outputs a never-ending double helix:
{@a=(' ')x18;$a[int(sin($_/2)*9)+9]=$a[int(cos($_/2)* 9)+9]='*';print@a;print"\n";for(1..10**5){}$_++;redo}

Zenon Zabinski | zdog | zdog7@hotmail.com

Comment on DNA (sorta)
Download Code
Re: DNA (sorta)
by blakem (Monsignor) on Oct 20, 2001 at 03:13 UTC
    Nice. I munged it a bit and tossed out your @a in favor of some more obfued ones....
    {$#==18,local@[[sin($-/2)*9+9,cos($-/2)*9+9]=('*')x2,s] ]@{[}$/]x,print;$-++;$_=$;;1for(1..10**5);redo}

    -Blake

      added @a again 'in favor of' printing some text.. I haven't obfued it any further that u did though.

      {@a=split'','just another perl hacker'unless@a; $#==18,local@[[sin($-/2)*9+9,cos($-/2)*9+9]=(shift @a)x2,s]]@{[}$/]x,print;$-++;$_=$;;1for(1..10**5);redo}

      He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

      Chady | http://chady.net/
        I like it! Of course, that leaves the door wide open for something like this:
        {($_='Yw^xUabcdtefgdijktljkotiersjkUzxTyvlkbfdtcierstajogvPruntRshackR +Jelov') =~ y&RTUv;wxYz$& ~'/;$=()x;$&;eval;$_=$@;@a=split'',$^unless@a;$#== 18,local@[[sin($-/2)*9+9,cos($-/2)*9+9]=(shift@a)x2,s]]@{[}$/]x,print ;$-++;$_=$;;1for(1..10**5);redo}
        (japh borrowed from anonymonk at Optical Illusion)

        -Blake

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://120152]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (11)
As of 2014-11-28 16:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (198 votes), past polls