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)

        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 comp
• Of course Perl6 will solve your problem (Score:1)

  by Limbic Region (3985)

  In p5, you could use Quantum::Superpositions any()
  
  In p6, they are called junctions - and in this case it is still any()
  
  Cheers