0votos

Factores primos en F#

por nicolocodev hace 3 años

Solución (no muy funcional) en F#

Descomponer un numero positivo (>0) para obtener todos sus divisores.

1
2
3
4
5
6
7
8
9
10
let descomponer numero =  
        let rec factores nactual factor =  
            if nactual > 1 then  
                if nactual % factor <> 0 then factores nactual (factor + 1) 
                else  
                    let n = nactual / factor 
                    printfn "%d" factor 
                    if n % factor = 0 then factores n factor 
                    else factores n (factor + 1) 
        factores numero 2 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.