Skip to main content
6 de 8
se eliminaron 12 caracteres en el cuerpo
Carlos
  • 357
  • 1
  • 2
  • 16

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

Buenas tardes.

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

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

toBin 2^38-174 = [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,0,0,1,0]

toBin 1215484521248 = [1,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,1,1,1,1,0,1,0,1,1,0,0,1,0,0,0,0,0]

He intentado hacerlo mediante recursión, de la siguiente forma, pero es muy poco eficiente, pues en los ejemplos anteriores, ni me lo da en el mismo orden y tarda mucho.

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.

ACTUALIZADO

El problema es que me lo piden para este número 20^100000000+37, y ambas definciones son ineficientes, tanto la mía como la del comentario.

Muchas gracias y un saludo.

Carlos
  • 357
  • 1
  • 2
  • 16