srednia.pl - obliczanie srednich uogolnionych.
1.00, [c]piotao, 20070220, perl v5.8.8, x86_64-linux-thread-multi
srednia.pl 3 < dane.txt cat dane.txt | srednia.pl 2 ...
Program nalezy uruchomic z jednym argumentem - stopniem sredniej (w zadaniu chodzi o liczbe 0, 1 lub 2, ale mozna podac dowolna). Dane wczytywane sa ze standardowego wejscia az do napotkania konca pliku. Przykladowa sesja pracy z programem moze wygladac np. tak:
perl srednia.pl 0 1 2 3 Ctrl+D Srednia rzedu 0 wynosi 1.8171
Program korzysta z modulu List::Util, z ktorego importuje nazwy dwoch funkcji:
reduce
oraz sum
. Pierwsza z nich dziala tak, ze wykonuje blok dla kazdej
danej z podanego ciagu danych. Zmienne $a
i $b
ktore mozna umiesic w
bloku beda kolejnymi danymi ze strumienia danych. Pierwsze wykonanie bloku
pobierze dwie pierwsze dane ze strumienia, nastepne wykonania beda pobierac po
jednej i podstawiac ja do zmiennej $b
. Zmienna $a
bedzie zawierala wynik
poprzednio obliczony w tym samym bloku dla poprzedniej pary zmiennych.
Dzialanie sum
polega na prostym arytmetycznym sumowaniu ciagu argumentow.