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

I think I forgot to show Leon this one ;))
works with strict, and -w
sub indexArray { 1 while $_[0] ne pop; @_-1; }

Side node to Arhuman (see below): Respect goes out to you man! ;))

GreetZ!,

print "profeth still\n" if /bird|devil/;

Replies are listed 'Best First'.
Re: Re: Shortest -return index of element in array- sub
by arhuman (Vicar) on Mar 21, 2001 at 19:10 UTC
    sub indexArray(@) { 1 while $_[0] ne pop; $#_; }
    Saves One char...
    Could be applied to some of the other solutions (jmcnamara) too...


    "Trying to be a SMART lamer" (thanx to Merlyn ;-)