Optimising Perl 6

sub fib-optimised-v4 { $^a > 1 ?? fib-optimised-v4($^a - 1) + fib-optimised-v4($^a - 2) !! $^a; }