Cadenas de ceros y unos
Definir la constante
cadenasDe0y1 :: [String]
tal que cadenasDe0y1 es la cadena de ceros y unos. Por ejemplo,
λ> take 10 cadenasDe0y1 ["","0","1","00","10","01","11","000","100","010"]
Soluciones
cadenasDe0y1 :: [String] cadenasDe0y1 = "" : concat [['0':cs, '1':cs] | cs <- cadenasDe0y1]