nCr

http://d.hatena.ne.jp/Ozy/20060603#p2より
Nemerleで挑戦してみました。

using Nemerle.IO;
mutable n,r;

def c(){
    scanf("%d %d",n,r);
    match*1; c()
    }
}

c()

改行、空白削っても147B・・・勝負になりません。(^^;

(追記)
matchをやめてメモ帳で保存して131B。viだと最後に改行が追加されるのを忘れてました(笑)。

using Nemerle.IO;
mutable n,r;

def c(){
    scanf("%d %d",n,r);
    when(n|r!=0){
        printf("%d\n",$[1..r].FoldLeft(1,(i,a)=>a*(n-i+1)/i));c()
    }
}
c()

*1:n,r) ){ |(0,0)=>() |_=>printf("%d\n",$[1..r].FoldLeft(1,(i,a)=>a*(n-i+1)/i