Wow, your question certainly got the Monks working on lots of solutions!

I recommend understanding every single program in this thread... Understand exactly how they work.

I am curious if this was some sort of homework assignment or not?
I am also curious about what other languages you know?

I did not assume that this was homework for the simple reason that the beginner classes that I work with would not have even covered array indicies before an assignment like this would be given. You wouldn't be thinking in that direction because, the class wouldn't have even talked about it! Of course it could be that you are in a "bad class". In any case all the better to show some better ways!

None of the code presented (except yours) uses splice() and array index. I hope that sends you a clear message! Normally use the Perl array iterators which do not depend upon some [$i] index value. Of course indicies can and should be used in some situations, but they should not be your first thought.

My code perhaps appears at first glance to be "complicated" as compared to some of the more brief solutions. I will try to explain the thought process. Maybe other Monks can do that for their code also?

I rejected at first thought any idea of splice() and index as being too complicated. Also your code did not require me to modify the input array "in place" - that means to me that I can use extra memory for the "solution".

I started with a foreach loop over all of the input numbers. There are actually 4 conditions:

• Something needs to happen if I see a "6"
• Something needs to happen if I see a "7"

Then I coded:

• Case where I am within a 6,x,yz,7 sequence
• Case where I am not within such a sequence.

I recommend looking at Laurent_R's solution here. It is shorter but still has the basic 4 different situations.

Of course, "shorter, fewer lines" does not always mean "better" or even "faster". I tried to present some code for you that you could understand and modify if necessary to meet your needs.

Thanks, Marshall for your recommendation.

Well, as I said, I first thought that Marshall's idea of a solution was good, but since I felt that is was probably a bit complicated. I was hoping to make something simpler. As I said, I ended up doing independently something essentially similar (although written differently and using an additional $flag variable, which isn't really necessary, as Marshall has shown).

Trying to simplify (or at least shorten) the code I tried to use a ternary conditional, something along these lines:

push $flag ? @temp : @result, $num;
[download]

But the compiler doesn't like this. Even adding parentheses does not seem to help.

So that's why I next came to the idea of pushing the values to a variable containing a reference to either the @temp or the @result array, depending on whether we are in a 6..7 range or not. I think this is pretty clean and clear, and quite concise, but using references this way may be beyond the knowledge of a beginner (although the OP uses an array reference).

It seems you need

push @{ $flag ? \@temp : \@result }, $num;
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Maybe other Monks can do that for their code also?

Well, I have exposed why the OPs code failed, how to fix that, then steered towards a more perlish solution via something like Laurent_Rs solution (first one) arriving at tybalt89s version (with some decoration resembling the OP). Just trying to explain things a bit...

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Original Array : 1 6 2 2 7 1 6 99 99
Result: ?
[download]

Yeah, that's another big flaw in the OPs code: no handling of unspecified conditions. Without a closing 7, what should an opening 6 have done? Your browser is full of that - implicit close of tags at some place, lacking the closing tag. I don't even want to know how much code has been written to prevent blowing up on that.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'