1votos

Decimal a binario recursivo. en Haskell

por josejuan hace 2 años

.

Crear una función recursiva que pase un numero decimal a binario preferentemente en algún lenguaje funcional.

1
2
3
4
dec2bin = reverse ∘ q 
  where q 0 = [0] 
        q 1 = [1] 
        q n = r: q d where (d, r) = n `divMod` 2 
5 comentarios
0votos

Escrito por AverageUser hace 2 años

Me tira error por el "∘" ¿tengo que importar algo?
0votos

Escrito por josejuan hace 2 años

@otherme, uso `conceal` para los símbolos, en plano es:
dec2bin = reverse . q 
  where q 0 = [0] 
        q 1 = [1] 
        q n = r: q d where (d, r) = n `divMod` 2
-- Ej.
-- > dec2bin 137
-- [1,0,0,0,1,0,0,1]
0votos

Escrito por AverageUser hace 2 años

Gracias !!

Recién que empiezo con Haskell.
0votos

Escrito por AverageUser hace 2 años

Pero bueno, solo se lo quito y lo veo al revés
0votos

Escrito por AverageUser hace 2 años

decimal :: Int -> String
decimal 1 = "1"
decimal n = (show(mod n 2))++(show(decimal(div n 2)))

Esta es la versión que hice antes de publicar el desafío. Se nota lo torpe que soy en Haskell

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.