このディレクトリの索引

http://toro.2ch.net/test/read.cgi/tech/1335517816/131
#  [1] 授業単元:プログラミング演習 
#  [2] 問題文:  
#  複素数a+ibのn乗を求めるプログラムを作成しなさい。  
#  ただし、係数a,bの値とnをそれぞれ読み込み、途中経過と計算結果を出力すること。 

#  
:- op(250,fx,i).

'複素数a+ibのn乗を求める'(X,1,X).
'複素数a+ibのn乗を求める'(Y,_n,X) :-
        _n_1 is _n - 1,
        '複素数a+ibのn乗を求める'(Y,_n_1,Z),
        複素数の掛け算(Y,Z,X).

複素数の掛け算(A + i B,C + i D,U + i V) :-
        U is A * C - B * D,
        V is B * C + A * D.