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).
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).