7 lines
182 B
Raku
7 lines
182 B
Raku
sub A($k is copy, &x1, &x2, &x3, &x4, &x5) {
|
|
$k <= 0
|
|
?? x4() + x5()
|
|
!! (my &B = { A(--$k, &B, &x1, &x2, &x3, &x4) })();
|
|
};
|
|
|
|
say A(10, {1}, {-1}, {-1}, {1}, {0});
|