Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
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.


Comment on Re: doing the same thing but with less code
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2014-08-23 10:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls