このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1255709298/369
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10021.txt
# 1.
# 整数nをscanfで入力後"factorial"という関数を呼び出して、n!を求めるプログラム。
# (定義例:int factorial(int num))
# 
# 2.
# 2*2の行列A,Bの積(Cij=?Aik Bkj)を実行・表示するプログラム
'整数nをscanfで入力後"factorial"という関数を呼び出して、n!を求める'(N,X) :-
    get_integer(N),
    factorial(N,X).

factorial(1,1) :- !.
factorial(N,X) :- N>1,N1 is N-1,factorial(N1,Y),X is N * Y.

'2×2行列と2×2行列の積'([[A1,A2],[A3,A4]],[[B1,B2],[B3,B4]],[[C1,C2],[C3,C4]]) :-
    C1 is A1*B1+A2*B3,
    C2 is A1*B2+A2*B4,
    C3 is A3*B1+A4*B3,
    C4 is A3*B2+A4*B4.