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}
[download]```

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}
[download]```

-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}
[download]```

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}
[download]```
(japh borrowed from anonymonk at Optical Illusion)

-Blake