このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1320365280/33
#  [1] 授業単元:アルゴリズム 
#  [2] 問題文(含コード&リンク):mのn乗 を一の位まで正確に計算するプログラムを書け。ただし、mは2以上10000未満の整数、nは0以上10000未満の整数とする。 
#   
#  

'mのn乗 を一の位まで正確に計算するプログラムを書け。ただし、mは2以上10000未満の整数、nは0以上10000未満の整数とする。'(_m,_n,_答え) :-
        findall(_m,(
                    for(1,N,_n)),
                L),
        concat_atom(L,'*',S),
        atom_to_term(S,_式,_),
        _答え is _式.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'mのn乗 を一の位まで正確に計算するプログラムを書け。ただし、mは2以上10000未満の整数、nは0以上10000未満の整数とする。'(_m,_n,_答え) :-
        'mのn乗 を一の位まで正確に計算するプログラムを書け。ただし、mは2以上10000未満の整数、nは0以上10000未満の整数とする。'(_m,1,_n,_答え).

'mのn乗 を一の位まで正確に計算するプログラムを書け。ただし、mは2以上10000未満の整数、nは0以上10000未満の整数とする。'(_m,N,_n,1) :-
        N > _n,!.
'mのn乗 を一の位まで正確に計算するプログラムを書け。ただし、mは2以上10000未満の整数、nは0以上10000未満の整数とする。'(_m,N,_n,X) :-
        N_2 is N + 1,
        'mのn乗 を一の位まで正確に計算するプログラムを書け。ただし、mは2以上10000未満の整数、nは0以上10000未満の整数とする。'(_m,N_2,_n,Y),
        X is _m * Y.