Dnia Sun, 16 May 2010 06:38:13 -0700 (PDT), Marcin 'Qrczak' Kowalczyk
napisał(a):

> On May 16, 3:12 pm, Jacek <a...@o...pl> wrote:
> [...]
>> Ogolnie chodzi o wybranie z tego zbioru elemtow rownych i roznych i
>> umieszczenie ich w grupach.
>> Mam nadzieje, ze przyklad obrazowy pomoze;)
>>
>> Chyba jednak wszytko to bede musial zalawic Case i If...
>
> Po co kombinować z case i if rozpatrując poszczególne przypadki
> osobno, skoro problem jest trywialny w ogólnym przypadku?
>
> Na przykład w Perlu:
> my @values = (10, 20, 30, 20); # Przykład.
> my %groups = ();
> foreach my $value (@values) {$groups{$value}++}
> foreach my $value (keys %groups) {print "$groups{$value} x $value\n"}
>
> Wynik:
> 1 x 30
> 1 x 10
> 2 x 20

No dziekuje bardzo. Wyglada na to, ze rozwiazuje moj problem.
Ale wystapil kolejny... nie znam Perla.
Daloby sie to przerobic do VB?