RosettaCodeData/Task/Averages-Simple-moving-average/Perl-6/averages-simple-moving-average-2.pl6

my &sma = sma-generator 3;

for 1, 2, 3, 2, 7 {
    printf "append $_ --> sma = %.2f  (with period 3)\n", sma $_;
}