(no subject)

[sophie]

This comm needs more posts. :D

Has anyone here made a JAPH? I made one way back in 2002 and it isn't really that great (hey, it was 6-7 years ago, give me some slack :D), but I thought I'd share it anyway:

#!/usr/bin/perl

    $smilies="jolly-               fun-resilient-
   mirthful--adorable-            enticing-sloping
   -ecstatic-happy-              delightful-enrapt-
     -rhapsodic-                  earless-grinning

                  -!melancholy-
                    -mighty-
                   appropriate-
                    accepted


-joking-cheerful                    -!rare";$smilies=~
   s/[\n \!]//g;                  $smilies=~s/--/-=/g;
    @joyful=split(               '-',$smilies);my
      $smile=":-D";             my $elation=-1;
        while($smile ne "rare"){$elation+=1;
         $smile=$joyful[$elation];if($smile
           =~/^=^?/){($smile)=$smile=~
           /.(.*)/;print" ";}@pleasing=
              split('',$smile);print
                $pleasing[($elation
                      %4)];}

There are a few Easter eggs in the source. :)