Re: Conditional Elimination

[RichardK]

If you have a long list of items to check $p against, you could try something like

my @ptests = (88,89,90,91,110,115);

if ( grep {$p == $_} @ptests  ) {
    return $p;
}

Then it's easy to add new items to the list and the code does not need to change.

or you could use List::MoreUtils firstval which may be slightly more efficient if you have long lists

use List::MoreUtils qw {firstval};

my @ptests = (88,89,90,91,110,115);

if ( firstval {$p == $_} @ptests) {
    return $p;
}

[Kc12349]

If you have 5.10 or newer perl, I would use the smart match operator using the same logic. Smart match generally benchmarks significantly faster than grep and first.