Planning: 20 mins
Coding: 10 mins
Formatting: 90 mins!

At least it killed time on a long flight! 

                $_="Who am I?";
            my@f=unpack("C*",$_);
          $f[9]=$f[3]+$f[6]+$f[7]-
      $f[8];$f[25]=$f[5]-$f[9]+$f[7]
     ;$f[10]=$f[2]+$f[2]-$f[1]-$f[9]+
   $f[7];$f[17]=     $f[12]=$f[10]+
   $f[7]-$f[9];      $f[11]=$f[12]
                    +$f[7]-$f[9];
                   $f[26]=$f[21]
                  =$f[13]=$f[3]
                 ;$f[28]=$f[14]
                =$f[3]+$f[6]+
               $f[13]-$f[7]
               +$f[9];$f[15]
               =$f[5]+$f[9]
                -$f[7];$f[16]
                  =$f[2];$f[27]

                       =$f[18]=         $f[1];$f         [31]=$f[
                      23]=$f[19]=$     f[2]-$f[4]+$     f[0];$f[32]
                      =$f[24]=$f[20]   =$f[11]+$f[7]-   $f[9];$f[22]=
                       $f[10]+$f[10]    +$f[10]-$f[0]   -$f[0]-$f[14]
                        ;$f[29]=$f[4     ]+$f[10]-$f[    11];$f[30]=$
                          f[10]+$f[        0]-$f[4];       print pack
                             ("C*"            ,@f[9           ..32]);

[download]

Replies are listed 'Best First'.
Re: First JAPH
by liverpole (Monsignor) on Aug 03, 2007 at 21:48 UTC
    Hi johnlawrence,

    It's a very nice "First Japh".  I was quite impressed by the professional-looking formatting.

    Out of curiosity, do you have any techniques to share with regards to how you formatted it so nicely?

    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
[reply]
      Not particularly I'm afraid. I started off trying to get the rough question mark shape and ended up with a bit extra (hence the dots). Really it just took time and playing around. I found boredom helps!
[reply]
Re: First JAPH
by dbw (Beadle) on Aug 08, 2007 at 12:48 UTC
    Very cool, definite ++! Though it'd be nice if you could add the newline...
[reply]

Back to Obfuscated Code