strykelang 0.7.3

A highly parallel Perl 5 interpreter written in Rust
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/env stryke
use strict
use warnings
my %memo

sub fib {
    my $n = @_ |> shift
    if ($n <= 1) {
        return $n
    }
    if (exists $memo{$n}) {
        return $memo{$n}
    }
    $memo{$n} = (($n - 1) |> fib) + (($n - 2) |> fib)
    $memo{$n}
}

for $i (0 .. 20) {
    printf "fib(%2d) = %d\n", $i, $i |> fib
}