Re^4: Multiple Conditional Statements

I find it very easy to understand. In general, that should trump issues of speed, memory, or namespace.

Interesting justifiction. Personally, I prefer solutions that are:

Clean.
Don't create persistent, named temporaries to clutter, conflict and confuse the purpose of the code.
Clear.
Don't introduce unnecessary (and counterproductive) levels of indirection in the name of premature optimisation (avoiding copies).
It is more expensive to takes references then dereference those references; than to make copies of simple, small scalar values:
```
($a,$b,$c,$d,$e) = 1 .. 5; 
cmpthese -1,{
    a=>q[ my @a = ($a,$b,$c,$d,$e); ++$_ for @a;],
    b=>q[my @a = \($a,$b,$c,$d,$e); ++$$_ for @a; ] 
};;
      Rate    b    a
b 525790/s   -- -23%
a 685872/s  30%   --
[download]
```
Concise.
The goal of this snippet if to cross-compare a few variables with the only interest being a single boolean truth.
Spreading that across half a dozen lines, adding named temporaries to the mix; adding a module, a callback and nested loops; and obscure indirections to derive a simple boolean does the very opposite of making things easy to understand.
Simple.
Simple means when the algorithm calls for:
```
if( <some condition> ) {
   ## do somthing
}
[download]
```
the implementation (code) should reflect that. Not detract from the algorithm by introducing unneeded complexity.
Efficient.
looping to perform all 15 comparisons when the first or the second can resolve the boolean condition is just flagrant waste.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^4: Multiple Conditional Statements Select or Download Code

Replies are listed 'Best First'.
Re^5: Multiple Conditional Statements by BillKSmith (Monsignor) on Sep 12, 2013 at 04:07 UTC
There is a maximum of only ten comparisons. By your criteria, the OP had it right in the first place. The ternary operator, with the format from the book "Perl Best Practices", cleans it slightly. `my $match = $RB1 == $RB2 ? 1 : $RB1 == $WR1 ? 1 : $RB1 == $WR2 ? 1 : $RB1 == $TE1 ? 1 : $RB2 == $WR1 ? 1 : $RB2 == $WR2 ? 1 : $RB2 == $TE1 ? 1 : $WR1 == $WR2 ? 1 : $WR1 == $TE1 ? 1 : $WR2 == $TE1 ? 1 : 0 ;` [download] UPDATE: Or even `my $match = $RB1 == $RB2 \|\| $RB1 == $WR1 \|\| $RB1 == $WR2 \|\| $RB +1 == $TE1 \|\| $RB2 == $WR1 \|\| $RB2 == $WR2 \|\| $RB2 == $TE1 \|\| $WR1 == $WR2 \|\| $WR1 == $TE1 \|\| $WR2 == $TE1 ;` [download] Bill	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Multiple Conditional Statements
by BillKSmith (Monsignor) on Sep 12, 2013 at 04:07 UTC

my $match =  $RB1 == $RB2  ?  1 
          :  $RB1 == $WR1  ?  1 
          :  $RB1 == $WR2  ?  1 
          :  $RB1 == $TE1  ?  1 
          :  $RB2 == $WR1  ?  1 
          :  $RB2 == $WR2  ?  1 
          :  $RB2 == $TE1  ?  1 
          :  $WR1 == $WR2  ?  1 
          :  $WR1 == $TE1  ?  1 
          :  $WR2 == $TE1  ?  1 
          :                   0
          ;
[download]

my $match =  $RB1 == $RB2  ||  $RB1 == $WR1  ||  $RB1 == $WR2  ||  $RB
+1 == $TE1
         ||  $RB2 == $WR1  ||  $RB2 == $WR2  ||  $RB2 == $TE1
         ||  $WR1 == $WR2  ||  $WR1 == $TE1
         ||  $WR2 == $TE1 ;
[download]

Bill

[reply]
[d/l]
[select]