PrologでまったりPart 2
■ このスレッドは過去ログ倉庫に格納されています
0888デフォルトの名無しさん
2007/08/01(水) 07:32:59i2s(X,Y) :-
var(X),
var(Y),!.
i2s(0,0) :- !.
i2s(A,A2) :-
integer(A),
var(A2),
B is A-1,
i2s(B,S),
A2=s(S),!.
i2s(A,s(S)) :-
i2s(B,S),
A is B+1,!.
これでうまくいくのかな
■ このスレッドは過去ログ倉庫に格納されています