10/02/08 21:38:31
>>640
% Prolog
学生(11,源亮,168).
学生(33,高階高子,156).
学生(7,九条良常,173).
学生(61,石川広也,162).
学生(16,藤原隆甫,177).
学生番号または名前をもとに身長を調べる(_学生番号または名前,_身長) :-
integer(_学生番号または名前),
学生(_学生番号または名前,_名前,_身長),
write_formatted('学生番号=%t,名前=%t,身長=%t\n',[_学生番号または名前,_名前,_身長]).
学生番号または名前をもとに身長を調べる(_学生番号または名前,_身長) :-
atom(_学生番号または名前),
学生(_学生番号,_学生番号または名前,_身長),
write_formatted('学生番号=%t,名前=%t,身長=%t\n',[_学生番号,_学生番号または名前,_身長]).