Re: Re: Re: Re: duplicate lines in array

Bah, you call that golfing? :) You used multi-letter variable names and more than one space.

/(H\(\d+\))/&&push@{$c{$1}},"$_\n"for@r;
print map@{$c{$_}},grep$#{$c{$_}},keys%c;
[download]

Comment on Re: Re: Re: Re: duplicate lines in array Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: duplicate lines in array by Skeeve (Parson) on Jan 23, 2004 at 15:15 UTC
How comes you missed this? `/H$\d+$/&&push@{$c{$&}},$_.$/for@r;` [download] You could even save "keys" because no value will be a key: `print map@{$c{$_}},grep$#{$c{$_}}>0,%c;` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: duplicate lines in array by Skeeve (Parson) on Jan 23, 2004 at 15:15 UTC
How comes you missed this? `/H\(\d+\)/&&push@{$c{$&}},$_.$/for@r;` [download] You could even save "keys" because no value will be a key: `print map@{$c{$_}},grep$#{$c{$_}}>0,%c;` [download]	[reply] [d/l] [select]