いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

119:117
09/06/09 12:20:20
>>118 間違いがありました。訂正します。
get_line(Stream,X) :-
　　findall(C,(repeat,get_char(C),(X='\n',!,fail;true)),X).
　　concat_atom(L,X).
は
get_line(Stream,X) :-
　　findall(C,(repeat,get_char(Stream,C),(C='\n',!,fail;true)),X).
　　concat_atom(L,X).
が正しい。
findall/3の中に2箇所誤りがありました。

次ページ

続きを表示

1を表示