Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    (first_index { $a eq $_ } @fruit) <=>
    (first_index { $b eq $_ } @fruit);
}

Select or download this

18:00 >perl 2017_SoPW.pl
["APPLE", "GRAPE", "PINEAPPLE"]

18:04 >