Re: delete multiple occurrences

my @anew = map {
    $_ == 0 || $b[ $_ -1 ] ne $b[ $_ ] ? $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.

Comment on Re: delete multiple occurrences Download Code

Replies are listed 'Best First'.
Re^2: delete multiple occurrences by coldy (Scribe) on Jan 13, 2009 at 06:04 UTC
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	[reply]
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]