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]`

`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

`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.