Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: doing the same thing but with less code

by larsen (Parson)
on Aug 16, 2003 at 22:39 UTC ( #284372=note: print w/replies, xml ) Need Help??


in reply to doing the same thing but with less code

You could drop a lot of code starting from this example:
use strict; use warnings; use Test::More qw/no_plan/; my @interval = ( [ 0, '' ], [ 5, 'orange' ], [ 10, 'grey' ], [ 15, 'blue' ], ); sub interval { my $x = shift; # The special case 0 should be threated separately my $counter = 1; while( $counter <= $#interval && $x > $interval[ $counter ][ 0 ] ) + { ++$counter; } return $interval[ $counter ][ 1 ]; } ok( interval( 3 ) eq 'orange', "0 < 3 <= 5" ); ok( interval( 7 ) eq 'grey', "5 < 7 <= 10" ); ok( interval( 10 ) eq 'grey', "5 < 10 <= 10" );

Update: Oops. Wrong order of clauses in the while condition. Now fixed.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://284372]
help
Chatterbox?
[Corion]: A fresh module escapes into the morning twilight of Github. HTTP::Generator, produces cartesian products of your HTTP parameters to create more HTTP requests
[Corion]: But it still needs lots of documentation and more tests before I can release it. Also adapters to turn the data structure into HTTP::Request objects and Dancer::Request, Mojo::Request and Plack::Request

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2017-01-20 11:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (174 votes). Check out past polls.