Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Coming soon: Algorithm::Loops

by tye (Sage)
on Apr 11, 2003 at 21:35 UTC ( #249979=CUFP: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my %h;
    for my $x ( 1..9 ) {
    ...
    for my $k (  1990 .. 2010  ) {
        print "$k=$h{$k}\n"   if  exists $h{$k};
    }
    
  2. or download this
    1998=189+891+918=198+819+981=279+792+927=...
    2004=149+914+941=617+671+716=527+725+752
    2007=198+891+918=387+783+837=459+594+954=...
    
  3. or download this
    2003=089+098+908+908=368+386+386+863=485+485+485+548
    
  4. or download this
    for my $i ( 0..$#p ) {
      for my $j ( $i+1..$#p ) {
    ...
         }
      }
    }
    
  5. or download this
    sub nestedLoops {
        my( $loops, $params )= @_;
    ...
            $code->( @list );
        }
    }
    
  6. or download this
        my $digs= 3;
        my $fact= 1;
    ...
                if  1990 < $k and $k < 2010;
                ##if  $h{$k} =~ /\d/  &&  index($h{$k},"()") < 0;
        }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://249979]
Approved by Enlil
Front-paged by tall_man
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2021-04-13 10:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?