F #: funciones mutuamente recursivas

Question

Duplicar posibles:
[F#] How to have two methods calling each other?

Hola a todos,

Tengo un escenario en el que tengo dos funciones que se beneficiarían de ser mutuamente recursivo, pero No estoy seguro de cómo hacer esto en F #

Mi escenario es n OT tan simple como el siguiente código, pero me gustaría conseguir algo similar para compilar:

let rec f x = 
    if x>0 then 
    g (x-1) 
    else 
    x 

let rec g x = 
    if x>0 then 
    f (x-1) 
    else 
    x 

Answer 1

Puede también utilizar letrec ... and formulario:

let rec f x = 
    if x>0 then 
    g (x-1) 
    else 
    x 

and g x = 
    if x>0 then 
    f (x-1) 
    else 
    x 

Answer 2

Para obtener funciones mutuamente recursivas simplemente pasar uno al otro como un parámetro

let rec f g x = 
    if x>0 then 
    g (x-1) 
    else 
    x 

let rec g x = 
    if x>0 then 
    f g (x-1) 
    else 
    x 

Answer 3

utilizar la construcción let rec ... and ...:

let rec f x = 
    if x>0 then 
    g (x-1) 
    else 
    x 

and g x = 
    if x>0 then 
    f (x-1) 
    else 
    x