more eval with goto

Guaranteed to make your head explode, if you're into that sort of thing...

;$_=q~y
: ~."@{[A..Z,'
:',Z,A..Y]}".q~
:
;$
:=q
;(?=\s`)
;
;/.$:/x
;goto$&||uc q
;v;
;C
:s
;$:
;$-?Z
:V
;ex
;eval
;E
:s
;$:
;P;x
;eval
;F
:s
;$:
;Z;x
;eval
;G
:s
;$:
; C;x
;eval
;I
:s
;$:
;J;x
;eval
;J
:s
;$:
;O;x
;eval
;K
:s
;$:
;Z;x
;eval
;M
:s
;$:
;($/,G,$".K)[$ ---]
;ex
;eval
;N
:s
;$:
;O;x
;eval
;O
:s
;$:
;$ -++?C
:$   ".V
;ex
;eval
;P
:s
;$:
;N;x
;Q
:eval
;R
:print"@{[map ucfirst lc, qw`F `]}\n"
;exit
;V
:s
;$:
;$ -? I
:X
;ex
;eval
;X
:s
;$:
;F;ex
;eval
;Z
:s
;$:
;M;x
;eval~
;eval
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Comment on more eval with goto Download Code

Replies are listed 'Best First'.
Re: more eval with goto by tachyon (Chancellor) on Jul 02, 2001 at 12:00 UTC
Hmm, this is positively evil :-) I had a quick look at a decon and decided to do something easier like trying to nail jelly to the ceiling... tachyon s&&rsenoyhcatreve&&&s&n\w+t&"$'$`$\"$\&"&ee&&y&vers&&d&&print	[reply]