Menu Close

Cadenas de ceros y unos

-- Definir la constante
--    cadenasDe0y1 :: [String]
-- tal que cadenasDe0y1 es la cadena de ceros y unos. Por ejemplo,
--    ghci> take 10 cadenasDe0y1
--    ["","0","1","00","10","01","11","000","100","010"]

Soluciones

cadenasDe0y1 :: [String]
cadenasDe0y1 = "" : concat [['0':cs, '1':cs] | cs <- cadenasDe0y1]

Una solución de “Cadenas de ceros y unos

  1. David Argullo

    cadenasDe0y1 :: [String]
    cadenasDe0y1 = "": f "01" [""]
     where f xs ys =zs++f xs zs
            where zs = [y++[x]|x<-xs,y<-ys]
    

Escribe tu solución

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.