Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"sub get_max_index {
...
 print qq{i max == $ans;  \@arr[$ans] == $arr[$ans]};
"
i max == 2;  @arr[2] == 13