21 lines
362 B
Perl
Executable file
21 lines
362 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
$averageto = $ARGV[0];
|
|
for ($i = 0; $i < $averageto; $i++) {
|
|
$temp[$i] = 0;
|
|
}
|
|
|
|
while (<STDIN>) {
|
|
chomp;
|
|
$x = 0;
|
|
for ($i = 0; $i < $averageto; $i++) {
|
|
$x += $temp[$i];
|
|
}
|
|
$x = $x + $_;
|
|
$x = $x / ($averageto + 1);
|
|
print "$x\n";
|
|
for ($i = 0; $i < $averageto - 1; $i++) {
|
|
$temp[$i] = $temp[($i + 1)];
|
|
}
|
|
$temp[($averageto -1)] = $_;
|
|
}
|