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 7 segundos.**
 
Muchas gracias y un saludo.