9 lines
251 B
Plaintext
9 lines
251 B
Plaintext
|
let rec fibo2 ((n,n_1,n_0):int*int*int) : int =
|
||
|
|
let fibo2 : int -> int = fun (k : int) -> k in
|
||
|
|
if (n < 2) then n_1 else fibo2 3
|
||
|
|
|
||
|
|
let main (p,s : unit * int) : operation list * int =
|
||
|
|
let x : int = fibo2 (5, 1, 1) in
|
||
|
|
(([] : operation list), x)
|
||
|
|
|