このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1390525149/83
#  お題:次の式をn=10について計算し、大きい順に式と値を表示する。 
#  logは自然対数、sqrtは平方根、!は階乗、^は累乗とする。 
#  2^n 
#  2^log(n) 
#  4^n 
#  n 
#  n^2 
#  n! 
#  n*log(n) 
#  log(n!) 
#  log(log(n)) 
#  sqrt(log(n)) 
# 
# 

'次の式をn=10について計算し、大きい順に式と値を表示する。 
logは自然対数、sqrtは平方根、!は階乗、^は累乗とする。 
2^n,2^log(n),4^n,n,n^2,n!,n*log(n),log(n!),log(log(n)),sqrt(log(n))' :-
        _n = 10,
        _nの階乗 is 10*9*8*7*6*5*4*3*2*1,
        findall([X,A],(
                    nth1(_nth1,[2^_n,2^log(_n),4^_n,_n,_n^2,_nの階乗,_n*log(_n),log(_nの階乗),log(log(_n)),sqrt(log(_n))],F),
                    nth1(_nth1,[2^_n,2^log(_n),4^_n,_n,_n^2,'10!',_n*log(_n),log('10!'),log(log(_n)),sqrt(log(_n))],A),
                    X is F),
                L1),
        '大きい順に式と値を表示する。'(L1).

'大きい順に式と値を表示する。'(L1) :-
        sort(L1,L2),
        reverse(L2,L3),
        forall(member([X,F],L3),writef('%t=%t\n',[F,X])).