#!/usr/bin/perl

@punkty = (10, 10, 31, 28, 46, 22, 27, 28, 42, 31, 8, 27, 45, 34, 6, 23);

@wagi = (1..16);
@znormalizowane_wagi = normalizuj(\@wagi);   # Dzielenie kazdej wagi przez 136.

print "Sredni wazony wynik: ",
          srednia_wazona(\@punkty, \@znormalizowane_wagi);

# @norm = normalizuj(\@tablica) zapisuje znormalizowana wersje @tablica
# w @norm.
sub normalizuj {
    my ($element) = @_;
    my ($suma, @wynik);
    foreach (@$element) { $suma += $_ }
    foreach (@$element) { push(@wynik, $_ / $suma) }
    return @wynik;
}

sub srednia_wazona {
    my ($element, $waga) = @_;
    my ($wynik, $i);
    for ($i = 0; $i < @$element; $i++) {
        $wynik += $element->[$i] * $waga->[$i];
    }
    return $wynik;
}

