Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Somersaulting camel

by eyepopslikeamosquito (Chancellor)
on Jun 28, 2002 at 07:30 UTC ( #177952=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    perl camel.pl            camel forward somersaults as before
    perl camel.pl b          camel somersaults backwards
    ...
                    "\^"^(                                ('`')|       
                  ('/'))).                               '"})');       
    ------------------------------------------------------------------
    
  2. or download this
    use Acme::EyeDrops qw(sightly);
    my $src = <<'END_SRC_STR';
    ...
    my $max = 0; length > $max and $max = length for @a;
    $_ .= ' ' x ($max - length) for @a;
    print " $_ \n" for @a;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://177952]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2018-11-15 18:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My code is most likely broken because:
















    Results (190 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!