Huecos binarios
Los huecos binarios de un número natural n son las listas de cer0 entre dos unos en la representación binaria de n. Por ejemplo, puesto que la representación binaria de 20 es 10100 tiene dos hecos binarios de longitudes 1 y 2. La longitud del mayor hueco binario de 529 es 4 ya que la representación binaria de 529 es 1000010001.
Definir las funciones
longMayorHuecoBinario :: Int -> Int graficaLongMayorHuecoBinario :: Int -> IO ()
tales que + (longMayorHuecoBinario n) es la longitud del mayor hueco binario de n. Por ejemplo,
longMayorHuecoBinario 20 == 2 longMayorHuecoBinario 529 == 4 longMayorHuecoBinario 2018 == 3
- (graficaLongMayorHuecoBinario n) dibuja la gráfica de las longitudes de los mayores huecos binarios de los n primeros números naturales. Por ejemplo, (graficaLongMayorHuecoBinario 200) dibuja
import Data.List (group) import Graphics.Gnuplot.Simple longMayorHuecoBinario :: Int -> Int longMayorHuecoBinario n = maximum (0 : map length (huecosBinarios (decimalAbinario n))) -- La definición anterior se puede escribir sin argumentos: longMayorHuecoBinario2 :: Int -> Int longMayorHuecoBinario2 = maximum . (0 :) . map length . huecosBinarios . decimalAbinario -- (decimalAbinario x) es la representación binaria del número c. Por -- ejemplo, -- decimalAbinario 20 == [0,0,1,0,1] -- decimalAbinario 529 == [1,0,0,0,1,0,0,0,0,1] decimalAbinario :: Int -> [Int] decimalAbinario x | x < 2 = [x] | otherwise = x `mod` 2 : decimalAbinario (x `div` 2) -- (huecosBinarios xs) es la lista de los ceros xonsecutivos de xs entre -- dos elementos distintos de cero. Por ejemplo, -- huecosBinarios [0,0,1,0,1] == [[0,0],[0]] -- huecosBinarios [1,0,0,0,1,0,0,0,0,1] == [[0,0,0],[0,0,0,0]] huecosBinarios :: [Int] -> [[Int]] huecosBinarios xs = [ys | ys <- group xs, 0 `elem` ys] graficaLongMayorHuecoBinario :: Int -> IO () graficaLongMayorHuecoBinario n = plotList [ Key Nothing , Title ("graficaLongMayorHuecoBinario " ++ show n) , PNG ("Huecos_binarios_" ++ show n ++ ".png") ] [longMayorHuecoBinario k | k <- [0..n-1]]