プロジェクトオイラー問15 - sinapusu2002 @ ウィキ

http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2015
Problem 15 「格子経路」 †
略
20×20 のマス目ではいくつのルートがあるか.

40Ｃ20です。

fact(0,1):-!.
fact(N,Result):-
	N1 is N-1,
	fact(N1,Re),
	Result is Re*N.
main:-
	fact(40,X),fact(20,Y),
	Ans is X//(Y*Y),
	write(Ans).