Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

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

by duelafn (Parson)
on Mar 24, 2001 at 15:25 UTC ( [id://66855]=note: print w/replies, xml ) Need Help??


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

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://66855]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2024-04-20 08:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found