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.2
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 de los comentario.
numeroUnos (1+10^20000000) = a
Necesito la función que me diga cuantos unos tiene ese numero en binario, en menos, de 10 segundos.
Muchas gracias y un saludo.