Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (7 sloc) 207 Bytes
#! /usr/bin/perl6
my @data=map {rand}, (1..10);
my @ma=map {sum(@data[$_-1..$_+1])/3}, (1..@data.end-1);
unshift @ma,NaN;
push @ma,NaN;
my @out=map {[@data[$_],@ma[$_]]}, (0..@data.end);
say @out.perl;
You can’t perform that action at this time.