tag:blogger.com,1999:blog-62738186848314543062024-03-18T11:48:25.542+02:00cat **/*Akshaalhttp://www.blogger.com/profile/05677582369584740657noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-6273818684831454306.post-58303315883079590182007-05-18T10:34:00.001+03:002009-02-22T17:28:11.064+02:00CombinationsIt seems to be simple, but it took me two hours to write this function. And now I know the true nature of things!<br /><pre>combr :: [[a]] -> [[a]]<br />combr [l] = map (\x -> [x]) l<br />combr (l : tl) = concat $ map (\ll -> map (:ll) l) $ combr tl<br /><br />print $ combr [[1,2], [3,4], [5,6,7]]<br /><br />[[1,3,5],[2,3,5],[1,4,5],[2,4,5],[1,3,6],[2,3,6],[1,4,6],<br /> [2,4,6],[1,3,7],[2,3,7],[1,4,7],[2,4,7]]</pre><ad2></ad2>Akshaalhttp://www.blogger.com/profile/05677582369584740657noreply@blogger.com0