Optimising Perl 6

sub fib-optimised { @_[0] > 1 ?? fib-optimised(@_[0] - 1) + fib-optimised(@_[0] - 2) !! @_[0]; }