1

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)

1 respuesta 1

0

Puedes escribir directamente la función toBin para que devuelva una lista de 1s y 0s:

toBin :: Int -> [Int]
toBin 0 = [0]
toBin n = reverse $ bin n
    where
        bin 0 = []
        bin n = n `mod` 2 : bin (n `div` 2)

Ahora, para obtener el mayor número de 0s seguidos:

  • La función toBin convierte el número a binario como una lista de 1s y 0s.
  • La función group de Data.List agrupa la lista de 1s y 0s en sublistas de 1s y 0s consecutivos.
  • La función filter ((==0).head) filtra las sublistas de contengan 0s (con comprobar el primer elemento es suficiente).
  • La función map length devuelve la lista con las longitudes de las sublistas de 0s.
  • La función maximum devuelve el mayor número de la lista.

Juntándolo en una función tenemos:

import Data.List(group)
f :: Int -> Int
f = maximum . (0:) . map length . filter ((==0).head) . group . toBin

La función (0:) añade un 0 para evitar errores si no hay ningún 0 en el número binario. Por ejemplo:

f 558745840 = 4
f 2018 = 3
f 529 = 4

Tu Respuesta

Al pulsar en “Publica tu respuesta”, muestras tu consentimiento a nuestros términos de servicio, política de privacidad y política de cookies

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.