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}
}
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;$#_
}
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] |
