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