Cadenas de ceros y unos

Un comentario

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

   1 2 3 4

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

   Responder