2020-02-19 11:51:49 +01:00
|
|
|
// Test while loops in PascaLIGO
|
|
|
|
|
|
2020-03-10 14:24:57 +01:00
|
|
|
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)
|
