RosettaCodeData/Task/Fibonacci-sequence/Perl-6/fibonacci-sequence-3.pl6

constant @neg-fib = 0, 1, *-* ... *;
sub fib ($n) { $n >= 0 ?? @fib[$n] !! @neg-fib[-$n] }