10/01/07 09:49:26
>>180 (>>178)
% Prolog このような場合、RDBからは遠くなるが、
テストデータ(田中,100,90).
テストデータ(鈴木,80,80).
成績マスタ('A',_点数) :- _点数 >= 91,_点数 =< 100.
成績マスタ('B',_点数) :- _点数 >= 81,_点数 =< 90.
成績マスタ('C',_点数) :- _点数 >= 71,_点数 =< 80.
欲しい結果(_欲しい結果) :-
findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回目成績),_欲しい結果).
欲しい結果(_氏名,_一回目成績,_二回目成績) :-
テストデータ(_氏名,_一回目点数,_二回目点数),
成績マスタ(_一回目成績,_一回目点数),
成績マスタ(_二回目成績,_二回目点数).
% の方がPrologの特性を生かしたコードといえるだろう。