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
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
