lucas-numbers/lucas-11.p6

constant $lucas     := 2, 1, * + * ... *;
constant $fibonacci := 1, 0, * + * ... *;
constant $φ         := (1 + sqrt 5) / 2;

multi pow-φ(UInt $n) {
    $fibonacci[$n + 1] * $φ + $fibonacci[$n];
}

printf     "%2s %4s %10s %4s %9s\n", 'n', '𝓛', 'φⁿ', 'R()', 'φ()';
for 0..10 -> $n {
    printf "%2d %4d %10f %4d %4dφ + %d\n",
        $n,
        $lucas[$n],
        my $φⁿ = pow-φ($n),
        round($φⁿ),
        $fibonacci[$n + 1],
        $fibonacci[$n],
}