2 lines
98 B
Raku
2 lines
98 B
Raku
sub dif(@array [$, *@tail]) { @tail Z- @array }
|
|
sub difn($array, $n) { ($array, &dif ... *)[$n] }
|