๐Ÿ“˜ Computing the moving average using Perl 6

๐Ÿ“˜ Computing the moving average using Raku

N. B. Perl 6 has been renamed to Raku. Click to read more.

Calculate the moving average for the given array of numbers.

For each element of an array, the moving average is the average value of the last few items or the few elements around it. This kind of analysis is often used to smooth the curve.

Let us first generate some random dataโ€”an array of a hundred values between 0 and 1:

my @data = map {rand}, 1..100;

Now, calculate the average values for (almost) each point using three items before and three items after the current item:

my @average = map {
    sum(@data[$_ - 3 .. $_ + 3]) / 7
}, 3..96;

The beginning and the end of an initial array do not have enough neighbouring elements; thatโ€™s why they are skipped.

Inside theย map function, the code block calculates the sum of an array slice:

sum(@data[$_ - 3 .. $_ + 3]).

Here is a graph with the results of a test run of this program. The inner curve corresponds to the values of theย @average array.

Leave a Reply

Your email address will not be published. Required fields are marked *

Retype the CAPTCHA code from the image
Change the CAPTCHA codeSpeak the CAPTCHA code