このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/93
#  [1] 授業単元: C言語 
#  [2] 問題文:正の整数m,n(m>n)があるとき、 
#        順列mPnを計算するプログラムの作成。 
#  

'正の整数m,n(m>n)があるとき、順列mPnを計算する'(_m,_n,_mPn) :-
        階乗(_n,_m,_mPn).

階乗(M,N,1) :-
        M > N,!.
階乗(M,N,X) :-
        M2 is M + 1,
        階乗(M2,N,Y),
        X is M * Y.