Menu Close

Cadenas de ceros y unos

José A. Alonso, 
-- 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]
Medio
, , ,

Una solución de “Cadenas de ceros y unos”

  1. Responder
    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.