いろんな言語で宿題スレ第三編

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

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

次ページ

続きを表示

1を表示