※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。基本的なプログラム作法を学んだら、次は述語を使って実用的なプログラムを作ってみましょう。今回はこのようなテキストがあったとします。//in.txtこんにちはやあこんにちはこんにちはさよなら今晩ははじめまして今晩は今晩はさようならやあさようならさようならはじめましてよく見ると同じ文章が複数含まれています。重複している文章が不要なので、ニ度入力された文章は無視して別のテキストファイルに保存するプログラムを書いてみましょう。az-prologgets(S,X,[X|L],N):-gets(S,L,N).f([]).f(A):-a(A),!.f(A):-assert(a(A)),!,name(B,A),write(B),nl.get0,see,seen,assert,nameは既に学習しました。個々ではassertでa述語を作成して,次にa(A)のAが入力データf(A)のAと同じであればwriteしないでf述語を終わらせることによって2度同じ文を入力しないようにしています。atomは65535文字まで対応可能です。(Ver7.09以前では255文字までしか対応していません。プライバシーポリシー。