En Haskell, tengo definida las siguientes funciones:
import Numeric
import Data.Char
import Data.List
toBin :: Integer -> Integer
toBin n = read (showIntAtBase 2 intToDigit n "")
-- λ> toBin 558745840
-- 100001010011011100100011110000
-- (0.01 secs, 117,680 bytes)
digitos :: Integer -> [[Integer]]
digitos n = group [read[d] | d <- show n]
-- λ> digitos(toBin 558745840)
-- [[1],[0,0,0,0],[1],[0],[1],[0,0],[1,1],[0],[1,1,1],[0,0],[1],[0,0,0],[1,1,1,1],[0,0,0,0]]
-- (0.01 secs, 288,624 bytes)
Tengo que hacer una función que me diga el mayor números de cero seguidos en el número en forma binario. O sea,
f :: Integer -> Integer
f 558745840 = 4
f 2018 = 3
f 529 = 4
f 558745840
= 4 porque 100001010011011100100011110000, tiene 4 ceros seguidos. ¿Me pueden ayudar, por favor?
He intentado hacer lo siguiente, pero en algunos casos falla:
f :: Integer -> Integer
f = maximum (map length digitos)