Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Sinusoidal japh

by liverpole (Monsignor)
on Aug 27, 2006 at 19:07 UTC ( [id://569892] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    print+                      join $
       x,@$_,                $/for  map{@
    ...
             (j,a,p     ,h)[@            $a%4]
               :$"}+  @$_],                $b++]
                  }([1..                     80])x16;
    
  2. or download this
                                              hjaphjaphj                  
    +          
                                           japhjaphjaphjap                
    +          
    ...
    aphjaphj              hjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap
    + 
    aphjaphjap          aphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap
    + 
    aphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjaphjap