Adsence

lunes, 18 de abril de 2011

De-decimal-a-Binario

Leave a Comment


Archivo que encontre que te permite convertir un numero decimal a binario, muy practico, pero no di como hacer para que me mprimiera los primeros ceros, ejemplo digamos que el binario es 0110 solamente me bota 110


deciBina :: (Integer)- > Integer
deciBina n=if(n==1) then 1 else (deciBina(n `div` 2)*10)+ (n`mod`2)

0 comentarios :