組み合わせの数
http://haskell.g.hatena.ne.jp/hyuki/20060612/combination
これを
c n k=n^k`div`k^k where n^k=foldr(*)1[n-k+1..n]
2文字節約
c n k=n^k`div`k^k where n^k=product[n-k+1..n]
(せこい)
whereを消して
c n k=product[n-k+1..n]`div`product[1..k]
http://haskell.g.hatena.ne.jp/hyuki/20060612/combination
これを
c n k=n^k`div`k^k where n^k=foldr(*)1[n-k+1..n]
2文字節約
c n k=n^k`div`k^k where n^k=product[n-k+1..n]
(せこい)
whereを消して
c n k=product[n-k+1..n]`div`product[1..k]