10/02/07 07:03:06
>>625
% Prolog
'Prologでの表現' :-
'Prologでの表現'(1,X),
write_formatted('%t\n',[X]).
'Prologでの表現'(9,0) :- !.
'Prologでの表現'(N,X) :-
0 is N mod 2,
N2 is N + 1,
'Prologでの表現'(N2,Y),
X is Y + 1,!.
'Prologでの表現'(N,X) :-
\+(0 is N mod 2),
N2 is N + 1,
'Prologでの表現'(N2,X).