p2sh 0.4.3

The p2sh Programming language interpreter
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/usr/bin/env p2sh

fn fibonacci(x) {
    if x == 0 {
        return 0;
    } else {
        if x == 1 {
            return 1;
        } else {
            fibonacci(x - 1) + fibonacci(x - 2);
        }
    }
}

let n = if len(argv) > 1 {
  int(argv[1])
} else {
 30
};

let t1 = time();
let fib = fibonacci(n);
let t2 = time();
let secs = t2 - t1;

println("fib({}) = {} [took {} secs] ", n, fib, secs);