in reply to Difference arrays.
my @p = (1,1,1,1,1,2,2,2,3,3,4,5,6); my @q = (1,2,3,4,5,6 ); # my @p = (43, 43, 44); # my @q = (43, 43); my %q; $q{$_}++ for @q; my @r = grep { --$q{$_} < 0; } @p; print join (',', @r), "\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Difference arrays.
by BrowserUk (Patriarch) on Sep 04, 2008 at 20:30 UTC | |
|
Re^2: Difference arrays.
by Skeeve (Parson) on Sep 04, 2008 at 19:36 UTC | |
|
Re^2: Difference arrays.
by journey (Monk) on Sep 06, 2008 at 02:34 UTC | |
|
Re^2: Difference arrays.
by Skeeve (Parson) on Sep 04, 2008 at 21:27 UTC | |
by betterworld (Curate) on Sep 04, 2008 at 21:35 UTC | |
by Skeeve (Parson) on Sep 04, 2008 at 21:38 UTC |