Todo número entero n se puede escribir como 2^k·m, con m impar. Se dice que m es la parte impar de n. Por ejemplo, la parte impar de 40 es 5 porque 40 = 5·2^3.

Definir la función

parteImpar :: Int -> Int

tal que (parteImpar n) es la parte impar de n. Por ejemplo,

parteImpar 40  ==  5

Soluciones

parteImpar :: Int -> Int
parteImpar n | even n    = parteImpar (n `div` 2)
             | otherwise = n