09/06/17 18:10:18
>>210
% Prolog (Prologにハッシュはないよｗ したがって・・)
% （１）
wday(sunday,日曜日).
wday(monday,月曜日).
wday(saturday,土曜日).
% (2)
wdayの節数(_節数) :- 節数(wday(_,_),_節数).
節数(_節形式,_節数) :- findall(_,_節形式,L),length(L,_節数).
% （３）
'（３）' :-
wday(A,B),
write_formatted('「%t」は%tのことです。\n',[A,B]),
fail;
true.
% (4)
str2hash(S,_述語名) :-
split(S,['\n'],L),
member(A,L),
split(A,['\t',' '],L1),
P =.. [_述語名|L1],
assertz(P),
fail;
true.