Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

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

by ChOas (Curate)
on Mar 21, 2001 at 18:37 UTC ( [id://66026]=note: print w/replies, xml ) Need Help??


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!,
    ChOas

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 ;-)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://66026]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (5)
As of 2024-03-29 13:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found