Beefy Boxes and Bandwidth Generously Provided by pair Networks BBQ
Think about Loose Coupling
 
PerlMonks  

Propose.

by Falkkin (Chaplain)
on Aug 18, 2004 at 20:45 UTC ( #384100=obfuscated: print w/ replies, xml ) Need Help?? 

#!/usr/bin/perl -w
use strict;

     my$f=           $[;my
   $ch=0;sub       l{length}
 sub r{join"",   reverse split
("",$_[$[])}sub ss{substr($_[0]
,$_[1],$_[2])}sub be{$_=$_[0];p
 (ss($_,$f,1));$f+=l()/2;$f%=l 
  ();$f++if$ch%2;$ch++}my$q=r
   ("\ntfgpfdfal,thg?bngbj".    
    "naxfcixz");$_=$q; $q=~
      tr/f[a-z]/ [l-za-k] 
        /;my@ever=1..&l
          ;my$mine=$q
            ;sub p{
             print
              @_;
               }
                         
       be $mine for @ever 

[download]




Update: I'm elated by Vortacist's favorable response, of course. :)

Comment on Propose.
Download Code
Re: Propose.
by Vortacist (Pilgrim) on Aug 18, 2004 at 20:58 UTC
    $propose++;

    Yes! :)

[reply]
[d/l]
      Gives me a time out exception LOL,,
[reply]
Re: Propose.
by antirice (Priest) on Aug 18, 2004 at 21:00 UTC

    Congrats guys! :)

    antirice    
    The first rule of Perl club is - use Perl
    The     ith rule of Perl club is - follow rule i - 1 for i > 1

[reply]
      TMTOWTDI :-)
[reply]
Re: Propose.
by thor (Priest) on Aug 18, 2004 at 22:43 UTC
    You're a lucky man to be in such a position. Congratulations!

    thor

    Feel the white light, the light within
    Be your own disciple, fan the sparks of will
    With all of us waiting, your kingdom will come

[reply]
Re: Propose.
by jacques (Priest) on Aug 19, 2004 at 02:34 UTC
    Further proof that Perl is the ultimate glue language.
[reply]
Re: Propose.
by cLive ;-) (Parson) on Aug 19, 2004 at 06:45 UTC
[reply]
[d/l]
Re: Propose.
by TStanley (Canon) on Aug 19, 2004 at 09:48 UTC
    Congrats to the both of you. May you find peace and happiness together.

    TStanley
    --------
    The only thing necessary for the triumph of evil is for good men to do nothing -- Edmund Burke
[reply]
Re: Propose.
by csuhockey3 (Curate) on Aug 19, 2004 at 16:22 UTC
    Greatest obfu of all time! Congratulations!
[reply]
Re: Propose.
by paranoidDandroid (Initiate) on Aug 19, 2004 at 18:20 UTC
    What a gift. Thank you. Best of luck.
[reply]
      Congrats!!
[reply]
Re: Propose.
by giulienk (Curate) on Aug 20, 2004 at 07:51 UTC
[reply]
Re: Propose.
by BioGeek (Hermit) on Aug 21, 2004 at 00:53 UTC
    Congratulations to the both of you.

    This is actually the second online proposal I see in a week. Must be something in the air ;-)

    It also reminded me of a very romantic proposal by another geek.
[reply]
Re: Propose.
by pikus (Hermit) on Aug 24, 2004 at 13:42 UTC
    That's the most romantic thing I've ever seen! <sniff>

    Congratulations! :) 
         - pikus
    You know it's love when you memorize her IP number to skip DNS overhead.
[reply]
Re: Propose.
by teamster_jr (Curate) on Aug 25, 2004 at 14:21 UTC
    congrats guys, one thing, shouldn't this be in CUFP? :-)
    al
[reply]
Re: Propose.
by PhilHibbs (Hermit) on Sep 03, 2004 at 12:15 UTC
[reply]
Re: Propose.
by ambrus (Abbot) on Nov 17, 2008 at 19:08 UTC

    I assume this code is what this PHD comics strip refers to some two and a half year later.

[reply]
      Indeed, he changed my name to "William" (or most likely, forgot it) but he wrote the comic after meeting us at a book signing at Carnegie Mellon University.
[reply]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://384100]
Approved by teamster_jr
Front-paged by teamster_jr
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (15)
As of 2013-05-23 18:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (487 votes), past polls