組み合わせの数 再び

http://haskell.g.hatena.ne.jp/hyuki/20060612/combination

1行にまとめるのがありならこれでどうだヽ(´ー`)ノ

c _ 0=1;c n k=(c(n-1)$k-1)*n`div`k

34 byte

ほとんど上のと一緒だけど、計算順序を変えることで、
(/)の変わりにdivが使えることに気が付きました。


あっ・・

c _ 0=1;c n k=c(n-1)(k-1)*n`div`k

33 byteヽ(´ー`)ノ

$を使うことで括弧二文字()から1文字に減らせると思ってたけど
この計算順序だったら無い方が短くなるや。

\Large {}_n C_k = \frac{n}{k} {\times}_{n-1} C_{k-1} \\ {}_{12} C_4 = \frac{12 \times 11 \times 10 \times 9}{4 \times 3 \times 2 \times 1} = \frac{12}{4} \times \frac{11 \times 10 \times 9}{3 \times 2 \times 1} = \frac{12}{4} {\times}_{11} C_3