Select Code to Download

1
Statistics::Descriptive::Sparse=HASH(0x7fa3510457f0)

1
0

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

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

#!/usr/bin/env perl

...

    print '-' x 60, "\n";
}

$ pm_min_mindex.pl
Array1:    1 2 3 4 5 6 7
...
Array2:    a b c d e f g
Min index position in @array2 has value: a
------------------------------------------------------------