Re: Count non unique groups of elements in an array

Just repeat the push line after the loop ends:

push @newcount, $newcount + 1;
[download]

BTW, I'd also recommend to rename @newcount to @newcounts to avoid confusion with $newcount .

($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]

Comment on Re: Count non unique groups of elements in an array Select or Download Code

Replies are listed 'Best First'.
Re^2: Count non unique groups of elements in an array by Sandy_Bio_Perl (Beadle) on Aug 15, 2016 at 01:16 UTC
Thank you. Great!	[reply]