Not terribly obfuscated, but I do so love a bad pun. :) 
#!/usr/bin/perl -p
BEGIN{*ARGV=DATA,$,=$"x($=>>1^6).$/}s;\w;
substr$,,index($_,$&),1,$&;eg&&($_=!($.^5)?$,:$+)
__END__ Sine on the dotted line.  :)
| st        /P        er
|u  \      r  e      k  
J----a----e----r----c---
|     n  h      l  a    
|      ot        \h

[download]

Replies are listed 'Best First'.
Re: What's your sine?
by myocom (Deacon) on Aug 08, 2002 at 23:08 UTC

    A pun like that shouldn't go unanswered...

    #!/usr/bin/perl -p
BEGIN{*ARGV=DATA,$,=$"x($=>>1^6).$/}s;\w;
substr$,,index($_,$&),1,$&;eg&&($_=!($.^5)?$,:$+)
__END__ You really expect me to cosine that loan?
J        he        ac
|u      t  r      h  k
+-s----o----\----/----e-
|  t  n      P  l      r
|   \a        er

    [download]
    "One word of warning: if you meet a bunch of Perl programmers on the bus or something, don't look them in the eye. They've been known to try to convert the young into Perl monks." - Frank Willison
[reply]
[d/l]
      As long as we're escalating... ;) 
      #!/usr/bin/perl -p
BEGIN{*ARGV=DATA,$,=$"x($=>>1^6).$/}$;=$#_;s|.|++$;;
$&=~/\w/&&substr($,,$;,1,$&)|eg;($_=!($.^5)?$,:$+)
__END__ You're good, but I still hope to come in secant.
| s    o  e    r  h    r
Ju      th      l/      
+-----------------------
|   /a      /P      ck  
|  t  n    r  e    a  e

      [download]
[reply]
[d/l]

Back to Obfuscated Code