Re^2: delete multiple occurrences

thanks for this, I forgot to mention repetitions of other characters in @b are allowed and should not be filtered. Only 'z' repetitions need filtering

Comment on Re^2: delete multiple occurrences

Replies are listed 'Best First'.
Re^3: delete multiple occurrences by BrowserUk (Patriarch) on Jan 13, 2009 at 06:16 UTC
`my @anew = map { $_ == 0 \|\| $b[ $_ -1 ] ne 'z' \|\| $b[ $_ ] ne 'z' ? $a[ $_ ] : () } 0 .. $#a;` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: delete multiple occurrences
by BrowserUk (Patriarch) on Jan 13, 2009 at 06:16 UTC

my @anew = map {
    $_ == 0
    || $b[ $_ -1 ] ne 'z'
    || $b[ $_    ] ne 'z'
        ? $a[ $_ ] : ()
} 0 .. $#a;
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

[reply]
[d/l]