Select Code to Download

pugs>sub fib (Int $n) { return 1 if $n < 2; state @seen[$n] //= fib($n
+-1) + fib($n-2); }
Internal error while running expression:
...
    unexpected "["
    expecting word character, "::", "=", ":=", "::=", ";" or "}"
    at <interactive> line 1, column 52

pugs>  sub fib (Int $n) { state @seen; return 1 if $n < 2; @seen[$n] /
+/= fib($n-1) + fib($n-2); };
undef
...
pugs> say fib 800;
1121023813016570197539221312040081070329432498024398917379911096096424
+176870242714672419719090010009284331740160122026805305229708722215290
+03044406006693244742562963426
undef