De-binario-a-Decimal

Encontre este archivo en mi disco duro y me parecio interesante de subir se trata de como convertir de binario a decimal con Haskell, es divertio porque te pone a pensar de otra manera, , les recuerdo mi tuto de como iniciar en haskell para que puedan ejecutar estos programas, despues de que se carga deben escribir binaDeci(1101102,0) El primer parametro es el numero que quieren convertir y luego siempre va 0

binaDeci:: (Integer,Integer)- >Integer
binaDeci(x,c)= if(x< 10) then (x*(potencia(2,c))) else ((x `mod` 10)*(potencia(2,c)))+(binaDeci(x`div`10,c+1))


potencia:: (Integer,Integer) - > Integer
potencia (x,0)=1
potencia (x,n)=x*(potencia(x,n-1))