いろんな言語で宿題第四編

いろんな言語で宿題第四編 at TECH

42:デフォルトの名無しさん
10/03/17 10:43:55
>>32
% Prolog (その二)

キーワードカウンタを準備する :-
　　　abolish(キーワードカウンタ/2),
　　　キーワード(Id,_キーワード),
　　　キーワードカウンタ((+),_キーワード),
　　　fail.
キーワードカウンタを準備する.

キーワードカウンタ((+),_キーワード) :-
　　　retract(キーワードカウンタ(_キーワード,_現在のカウント)),
　　　_加算されたカウント is _現在のカウント + 1,
　　　カウンタカウンタの更新((-),_現在のカウント)
　　　カウンタカウンタの更新((+),_加算されたカウント),
　　　asserta(キーワードカウンタ(_キーワード,_加算されたカウント)),!.
キーワードカウンタ((+),キーワード) :-
　　　asserta(キーワードカウンタ(_キーワード,1)),
　　　カウンタカウンタの更新((+),1),!.

カウンタカウンタの更新((+),M) :-
　　　retract(カウンタカウンタ(M,N)),
　　　N2 is N + 1,
　　　asserta(カウンタカウンタ(M,N2)),!.
カウンタカウンタの更新((+),M) :- asserta(カウンタカウンタ(M,1)).
カウンタカウンタの更新((-),M) :-
　　　retract(カウンタカウンタ(M,N)),
　　　N1 is N - 1,
　　　asserta(カウンタカウンタ(M,N1)),!.

次ページ

続きを表示

1を表示