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

[lindex]

this works:

#!perl 

use strict;
sub iA{join('',map{$_ if($_[0]eq$_[$_])}(1..$#_))-1}

my(@array) = qw(foo bar crap stuff);
print "$_: ".iA($_,@array),"\n" for(qw(foo dolsman crap));

just my two cents :)



lindex

/****************************/
  [e-mail], [e-mail]
    http://jason.gost.net
/*****************************/