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