8 lines
240 B
Plaintext
8 lines
240 B
Plaintext
// Test while loops in PascaLIGO
|
|
|
|
let rec sum = ((n, acc) : (int,int)): int =>
|
|
if (n < 1) {acc;} else {sum ((n-1,acc+n));};
|
|
|
|
let rec fibo = ((n, n_1, n_0) : (int,int,int)): int =>
|
|
if (n < 2) {n_1;} else {fibo ((n-1,n_1+n_0,n_1));};
|