comments please, good or bad? 
use strict;

@_=('a'..'z');$_=join(/,/,@_);
@_=qw/7 20 18 14 5 19/;for $.(@_)
{print substr($_, $., 1), "\n";}

[download]

Replies are listed 'Best First'.
Re: My first obfuscated code
by Beatnik (Parson) on Sep 22, 2002 at 11:14 UTC
    A quick run thru, if I get this correctly :)
    You basically stuff the alphabet in @_, join it in $_, stuff a bunch of numbers in @_ again, loop thru those values, abusing $. (input line operator) while doing so, and printing a substr of 1 from the alphabet, position depending on those numbers you have in @_. What about : 
    $.=join('',a..z); print substr($.,$_,1) for(9,0,15,7);
#or.. uhm err
print substr(join('',a..z),$_,1) for(9,0,15,7);

    [download]
    which basically does the same

    Greetz
    Beatnik
    ...Perl is like sex: if you're doing it wrong, there's no fun to it.
[reply]
[d/l]
[select]

      Or even
      $W=$,=$\,die@{[a..z]}[9,0,15,7];

      Cor! Like yer ring! ... HALO dammit! ... 'Ave it yer way! Hal-lo, Mister la-de-da. ... Like yer ring!
[reply]
[d/l]
Re: My first obfuscated code
by Aristotle (Chancellor) on Sep 22, 2002 at 12:11 UTC
    It's not very obfuscated besides the join /,/ - but that is neat.

    Makeshifts last the longest.

[reply]

Back to Obfuscated Code