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.