Help for this page

Select Code to Download


  1. or download this
    sub minima(&@) {
   my $value = shift(@_);
...

   return @matches;
}
  2. or download this
    use List::Util qw( minima maxstr );

my $val = maxstr
          minima { length }
          @list;
  3. or download this
    use List::Util qw( minima );

...
my $val = pick
          minima { length }
          @list;