Codice: Seleziona tutto
let n = 5;;
let h = fun x -> n + x;;
let rec f p n =
let g = fun y -> n * y in
if n = 0 then p 1
else if n > 1 then f g (n-1)
else f p (n-1);;
f h 2;;
Codice: Seleziona tutto
let n = 5;;
let h = fun x -> n + x;;
let rec f p n =
let g = fun y -> n * y in
if n = 0 then p 1
else if n > 1 then f g (n-1)
else f p (n-1);;
f h 2;;