RosettaCodeData/Task/Forward-difference/Perl-6/forward-difference.pl6

sub dif(@array [$, *@tail]) { @tail Z- @array }
sub difn($array, $n) { ($array, &dif ... *)[$n] }