Re: min and mindex

[Khen1950fx]

in reply to min and mindex

Maybe this can be of some help:

#!usr/bin/perl -l

BEGIN {
    $|  = 1;
    $^W = 1;
}

use strict;
use warnings;
use Statistics::Descriptive;
use List::Util qw(minstr maxstr);

my(@array1) = qw(1 2 3 4 5 6 7); 

my $min_index = Statistics::Descriptive::Sparse->new();
$min_index->add_data(@array1);

my $min = $min_index->min;
my $max = $min_index->max;
my $mindex = $min_index->mindex;

print "Min: ", $min, minstr 'a'..'g';
print "Max: ", $max, maxstr 'a'..'g';
print "Mindex: ", $mindex;
print "Mindex: ", $min_index->mindex('a'..'g');