Re: My first JAPH art

Your ASCII art is actually pretty good....until it gets to the last line. Maybe you could turn the last line into an exclamation line? Nice job.
Hope you don't mind, I modified the formatting to include exclamations at the end. I didn't make any code changes, just moved things around to change the ASCII art. If it bugs you (since it is your JAPH) message me and I'll edit it out of my post.
UPDATE: I forgot that I did modify the code, just added the '-w' for warnings and there are none! Great Job Wolfger!

#!/usr/bin/perl -w

@a=(qq qaq..qq
      qzq,
      qq
      q q
);    $a=
0;@aa=(uc
$a[$a++,

$a++,$a++,$a++,
$a++,$a++,$a++,
$a++,     $a++,
$a],        $a[
$a++,$a++,$a++,
$a++,     $a++,
$a++,     $a++,
$a++,     $a++,

$a++,$a++,$a],
$a[$a--,$a--,$a],
$a[         $a++,
$a],        $a[
$a++,$a++,$a++
,$a++
,$a++
,$a++
,$a++

,$a],          uc$a
[$a--          ,$a--
,$a--          ,$a--
,$a--          ,$a--
,$a--,$a--,$a--,$a--
,$a--,$a--,$a--,$a--
,$a--,          $a--
,$a--,          $a--
,$a--,          $a--

  ,$a--,$a--,$a--,$a--
 ,$a--,$a--,$a],$a[$a++
,$a++,              $a++,
$a++,               $a++,
$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a],$a[$a++
,$a],                $a[
$a++,               $a++,
$a++,               $a++,
$a++                ,$a],

$a[$a--,$a--,$a--,$a--,$a--
,$a--,$a--,$a--,$a--,$a--,
$a--,
$a--,
$a],
$a[
$a--,
$a--,
$a--,
$a],$a[$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a++,$a++,

$a++,$a++,           $a++,$a++
,$a],$a[             $a++,$a++
,$a++,              $a++,$a++
,$a++,             $a++,$a++
,$a++,$a],   uc$a[$a--,$a--
,$a--,$a--,$a--,$a--,
$a--,$a--,$a--,$a--
,$a--,$a],  $a[$a--,
$a--,$a--    ,$a--,$a--,
$a--,$a--     ,$a--,$a--,
$a--,$a--      ,$a],$a[$a++,
$a++,$a++       ,$a++,$a++,$a++

,$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a],$a[$a--,$a--
,$a--
,$a--
,$a--,$a--,$a]
,$a[$a++,$a++,
$a++,
$a++,
$a++,
$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a++,$a++,

$a],uc$a[$a--,$a--,$a--,$a--,
$a--,$a--,$a--,$a--,$a--,$a--,
$a--,$a--,           $a--,$a--,
$a--,$a--,           $a--,$a--,
$a--,$a],$a         [$a--,$a--
,$a--,$a--,$a--,$a--,$a--,$a],
$a[$a++,$a++,$a],$a[$a++,$a++,
$a++,$a++      ,$a++,$a++,
$a++,$a++       ,$a],$a[$a--,
$a--,$a--        ,$a--,$a--,$a--
,$a],$a[          $a++,$a++,$a++,

   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a]);   $a=0;
   print   @aa[    $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
     
   $a++,   $a++,   $a++,
   $a++,   $a++,   $a++,
    $a++    ,$a     ];
[download]

-Kevin

Comment on Re: My first JAPH art Download Code

Replies are listed 'Best First'.
Re^2: My first JAPH art by wolfger (Deacon) on Feb 04, 2005 at 10:23 UTC
That's a beautiful solution! Why didn't I think of that? Thanks for the feedback. -- Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0 perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'	[reply] [d/l]