いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

408:デフォルトの名無しさん
09/07/09 04:07:49
>>407
% Prolog

t407(N,X) :- N1 is N-1,t407(N1,N,X).

t407(1,_,0) :- !.
t407(N1,N,X) :- 0 is N mod N1,!,N2 is N1-1,t407(N2,N,Y),X is N+Y.
t407(N1,N,X) :- N2 is N1-1,t407(N2,N,X).

次ページ

続きを表示

1を表示