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


Or maybe this: 
    sub indexArray{
        while (@_) { return @_-1  if $_[0] eq pop }
    }

[download]

John.
--

Update: Just saw ChOas' post.

Replies are listed 'Best First'.
Re: Re: Shortest -return index of element in array- sub
by mr_mischief (Monsignor) on Apr 04, 2001 at 06:19 UTC
    Darn. This is the route I went, too.
    Just a slight bit of difference.
    I really need to read all the posts before taking a challenge mentioned in the first one. ;-) 

    sub indexArray2 {
 while(@_){$_[0] eq pop && return @_-1}
}

    [download]
    Chris
[reply]
[d/l]
      Now that I've taken a closer look, this is the shortest iterative version I could find (and also the shortest I could make it and have it run under strictures and warnings, although those aren't really prerequisites in golf): 
      sub indexArray3{
 1while$_[0]ne pop;$#_
}

      [download]
      I'd say that's pretty obfuscated, too. It can be done in a couple fewer characters recursively, if you use a one-character subroutine name and eliminate any unnecessary whitespace. I'd like to know hoe to do it in fewer iteratively, but I just can't figure anything out. Please point it out to me if there's a way.

      Chris Stith

[reply]
[d/l]
[reply]

In Section Cool Uses for Perl