http://rosalind.info/problems/fib/

Sample input

5 3

Sample output

19

use v6;



sub MAIN(Int $n = 5, Int $k = 3) {
    my @fib = 1, 1, * * $k + * ... *;

    say @fib[$n-1];
}

# vim: expandtab shiftwidth=4 ft=perl6