haskell 组合

drunkedcat

在 C 这类语言中，笔试时经常考的一个题目是，写出一个数组的全排列或组合。

正好，我正在写的这个玩具（现在只能这样叫）中要用到“组合”，发现在 haskell 中写个组合的函数真是方便之极呀。上一段代码，各位见笑：

combination                   :: [a] -> [[a]] combination []                =  [[]] combination (x:xs)            =  (map ([x] ++ ) (combination xs) )++ (combination xs)

MMMIX

排列

1. 
   
2. permutation :: Eq a => [a] -> [[a]]
   
3. permutation [] = [[]]
   
4. permutation xs = concatMap (\x -> map (x:) $ permutation (delete x xs)) xs
   

复制代码

ypyf3000

你这个代码写的不错，我研究了一个月，终于看明白了。谢谢！！！

x2

原来求组合和求集合的子集的方法一样。

x2

排列

1. 
   
2. (use-modules (srfi srfi-1))
   
3. 
   
4. (define (全排列 s)
   
5.   (if (null? s)
   
6.       '(())
   
7.       (append-map (λ (x) (map (λ (y) (cons x y))
   
8.                               (全排列 (delete x s))))
   
9.                   s)))
   

复制代码

[ 本帖最后由 x2 于 2009-3-27 14:19 编辑 ]

izhier

排列，组合终于看懂了

排列组合题确实能证明 Haskell 的威力！

再写一个(programming in haskell 中的)，和一楼的一样

1. 
   
2. combination :: [a] -> [[a]]
   
3. combination []  =  [[]]
   
4. combination (x:xs)  =  combination xs ++ map (x:) (combination xs)
   

复制代码

[ 本帖最后由 izhier 于 2009-4-14 10:03 编辑 ]