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