My first obfu! It's really simple, but I hope someone can enjoy it :) 
$a=$b=z("1,1");r(($a,$b)=($a+$b,$a))while($a<1000);z("\n");sub r{z(",$
+a");};sub z{print$_[0]};

[download]
Changed according to comments... Thank you.

Replies are listed 'Best First'.
Re: Obfuscated Numbers
by jynx (Priest) on Sep 19, 2001 at 01:17 UTC

    One small problem,

    It seems perl gets confused when you name a subroutine after a named function, such as 'y'. When running this with perl5.6 i get:

    Transliteration replacement not terminated at foo.pl line 1.

    [download]
    If i replace the letter 'y' with 'r' (or some other non-used single letter) it works correctly.

    jynx

[reply]
[d/l]
      and since carthag is new... Here is some documentation on y which happens to be exactly the same as tr. Both are explained further in perlop.

      -Blake

[reply]
        Thanks for the tip! I didn't know that... Live & learn as they say :)
[reply]

Back to Obfuscated Code