Help for this page

Select Code to Download


  1. or download this
    my @NI = (1 ,1 ,3 ,4);
my @NI_index = grep { $NI[$_] == min @NI } 0 .. $#NI;
print "@NI_index";
  2. or download this
    my %matrix = (NI => [1 ,1 ,3 ,4] );
  3. or download this
    my @NI_index = grep { $NI[$_] == min @NI } 0 .. $#NI;