challenge-122/mohammad-anwar/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/usr/bin/perl

use strict;
use warnings;
use List::Util qw(sum);

use Test::Deep;
use Test::More;

is_deeply(
    average_of_stream(10, 20, 30, 40, 50, 60, 70, 80, 90),
    [ 10, 15, 20, 25, 30, 35, 40, 45, 50 ]
);

done_testing;

sub average_of_stream {
    my @numbers = @_;

    my @average = ();
    my @stream  = ();
    foreach my $n (@numbers) {
        push @stream, $n;
        push @average, sum(@stream)/scalar(@stream);
    }

    return \@average;
}