use Perl

• List::MoreUtils? (Score:2)

  by Ovid (2709)

  While I can't say I'm wild about the name -- though I can't think of a better one -- the List::MoreUtils [cpan.org] module seems to offer a more general solution.

  use List::MoreUtils qw/any/;
  
  if (any {$var == $_ } 3,4,6,8..11,12,14,15) {
      print " matches\n";
  } else {
      print " has no matches\n"
  }
  • Re: (Score:1)

    by Aristotle (5147)

    I don’t see how that makes anything any better. You can s/any/grep/ and remove the use line and that works.
    • Re: (Score:2)

      by Ovid (2709)

      Because if you have a large list, grep forces you to iterate over every element. That could be expensive if called many times. any is easy to read and terminates as soon as any element in the list meets the condition. Of course, that still doesn't mean that any is better, but if you're using that in conjunction with other functions in that module, it can be a win.
      • Re: (Score:1)

        by Aristotle (5147) <pagaltzis@gmx.de> on 2005.07.20 3:56 (#42057) Homepage Journal

        Well, yes. And I did consider that.

        But it really only matters if you have a large list in which you look for some values much more frequently than for others, so reordering the list can yield consistent savings. Otherwise you’re just reducing the runtime from n steps to n/2 averaged steps – both of which are O(n).

        If that tiny an optimization actually manages to make a noticable difference, then you really have no excuse not to use a hash.

        If the code block was doing something much more complex that can’t be expressed in terms of hash exist/lookup, any would be worth considering, but for a simple ∈ operation, any case too big for grep to handle is also too big for any to handle relative to the better option that is available.

        Reply to This

        Parent