Re: [Haskell-cafe] Need some help with an infinite list

On Wed, 17 Jun 2009 00:45:56 -0400, you wrote:

And here's a version along similar lines that avoids (++) for greater sharing and efficiency:

let sss = [""] : [ [ c:s | c <- ['a'..'z'], s <- ss ] | ss <- sss ] in concat (tail sss)

Sheer genius! I just inverted it since I like to see the main idea first. letterCombos = concat (tail sss) where sss = [""] : [ [ c:s | c <- ['a'..'z'], s <- ss ] | ss <- sss ] -- Regards, Casey