1votos

Binario a Decimal (recursivo) en Haskell

por AverageUser hace 9 meses

Binario a decimal recursivo

Binario a decimal recursivo y sin usar potencias de 2. en cualquier lenguaje

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
bin2dec :: Integral a => [a] -> a 
bin2dec [] = 0 
bin2dec xs = 1 * (last xs) + 2 * bin2dec (init xs) 
 
 
{- 
tests: 
 
bin2dec [1] == 1 
bin2dec [0] == 0 
bin2dec [1,0,0] == 4 
bin2dec [1,0,0,1] == 9 
bin2dec $ dec2bin 666 == 666  
 
-} 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.