Re: Shortest -return index of element in array- sub

in reply to Shortest -return index of element in array- sub

How about

sub indexArray{for(1..@_){$_[0]eq$_[$_]&&return$_-1}-1}
my @array=('john','paul','ringo','george');

print indexArray('john',@array) ."\n";      # Returns 0
print indexArray('ringo',@array) ."\n";     # Returns 2
print indexArray('mick',@array) ."\n";      # Returns -1
[download]

retaining jmcnamara comments about golf

Comment on Re: Shortest -return index of element in array- sub Download Code

Replies are listed 'Best First'.
Re (tilly) 1: Shortest -return index of element in array- sub by tilly (Archbishop) on Mar 22, 2001 at 05:57 UTC
If the contest is for an index and not the reverse index, then the above solution is correct. But the offerings that use pop will find the last match in the array rather than the first.	[reply]

In Section Cool Uses for Perl