Skip to main content
1 de 8
Carlos
  • 357
  • 1
  • 2
  • 16

¿Cómo pasar de decimal a binario en Haskell?

buenas tardes.

¿Hay alguna función que permita pasar de decimal a binario? Por ejemplo,

toBin 12 = [1,1,0,0]

toBin 1457 = [1,0,1,1,0,1,1,0,0,0,1]

He intentado hacerlo mediante recursión, de la siguiente forma, pero es muy poco eficiente

toBin 0 = [0]

toBin n | mod n 2 == 1 = toBin (div n 2) ++ [1]

        | mod n 2 == 0 = toBin (div n 2) ++ [0]

Asimismo, después necesito que me diga el número de unos que hay en el número Por ejemplo,

numeroUnos [1,1,0,0] = 2

Este último no se me ha ocurrido nada para hacerlo.

Muchas gracias y un saludo.

Carlos
  • 357
  • 1
  • 2
  • 16