いろんな言語で宿題スレ

いろんな言語で宿題ス ..

211:デフォルトの名無しさん
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.

次ページ