### DNA (sorta)

by zdog (Priest)
 on Oct 20, 2001 at 01:12 UTC 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

Replies are listed 'Best First'.
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.

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

Create A New User
Node Status?
node history
Node Type: obfuscated [id://120152]
Approved by root
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2018-04-24 15:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (86 votes). Check out past polls.

Notices?