09/12/25 12:15:11
>>65
% Prolog
指定された文字列('"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"').
'"izumi","Kanto","Kudo","Sato","Sugawara","Matuda","Wada"の７個の文字列の長さを求めて表示する' :-
指定された文字列(_指定された文字列),
split(_指定された文字列,[',','"'],_文字ならびのならび),
文字列を長さと共に表示する(_文字ならびのならび).
文字列を長さと共に表示する([]) :- !.
文字列を長さと共に表示する([Chars|R]) :-
length(Chars,_長さ),
atom_chars(_表示文字列,Chars),
write_formatted('%t:%t\n',[_長さ,_表示文字列]),
文字列を長さと共に表示する(R).