miércoles, 25 de julio de 2012

Lista de divisores en Haskell recursiva

divisores:: Int -> [Int]
divisores n = divisoresDesde n 1
divisoresDesde:: Int -> Int -> [Int]
divisoresDesde n m
|n == m = [n]
|n > m && (n `mod` m == 0) = m:(divisoresDesde n (m+1))
|n > m && (n `mod` m /= 0) = divisoresDesde n (m+1)
Segundo Cuatrimestre

No hay comentarios:

Publicar un comentario