This will need an xterm window ... and it's addicting to watch!
#!/usr/bin/perl sub sub{rand 39 / 999 }sub O123 { printf "" ."\e[". "%d" . ";%d" ."" ."H%s" ,@_} sub l234 {O123 $|=1,1, "\e[J" }while (1){ $c or do { l234; $ u=& sub;$ v = & sub ;$ c= 3999 ;$b=qw /39 9 1 /[ int rand 3] }; O123 11* sin ($v*$c)+ 13, 39*cos($ u*$c) +41,qw+J A P H+[$c%4] ;($a++%$b)or$ c -- ;}
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Spiro Japh
by blahblah (Friar) on Aug 22, 2005 at 17:57 UTC | |
Re: Spiro Japh
by danmcb (Monk) on Aug 23, 2005 at 10:10 UTC | |
Re: Spiro Japh
by chester (Hermit) on Aug 25, 2005 at 04:41 UTC | |
Re: Spiro Japh
by ikegami (Patriarch) on Sep 02, 2005 at 18:45 UTC | |
by liverpole (Monsignor) on Sep 03, 2005 at 15:42 UTC |
Back to
Obfuscated Code