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

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

What if we want to find all of the values? The best I could do was this,

sub find {
    1 while $_[0]ne pop;
    $#_+1?(&a(@_),$#_):();
}

my @array=('john','paul','ringo','george', 'ringo');

print &find('john',@array),"\n";      # Returns 0
print &find('ringo',@array),"\n";     # Returns 24
print &find('mick',@array),"\n";      # Returns undef
[download]

Good Day,
Dean

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

Replies are listed 'Best First'.
Re: Re: Shortest -return index of element in array- sub by MeowChow (Vicar) on Mar 24, 2001 at 23:59 UTC
`sub i { pop eq $_[0] ? @_-1 : (), $#_ ? &i : () }` [download] Ahhhh, more recursion... ps. This is why I used `@_-1` instead of `$#_`	[reply] [d/l] [select]
Re: Re: Shortest -return index of element in array- sub by MrNobo1024 (Hermit) on Apr 02, 2001 at 04:41 UTC
`sub aindex { grep$_[$_+1]eq$_[0],0..@_-2 }` [download]	[reply] [d/l]

In Section Cool Uses for Perl