入力を受け入れてプロローグに格納する方法

Question

入力をインタラクティブに受け入れる述語を設計して、空のクラスリストを持つ新しい生徒記録を作成する必要があります。また、studentIDがデータベースにないことを確認して、学生がまだシステムにいないことを確認する必要があります。

これは

% name, studentId, course list 
student(name(jane, [ann]), 5555, ['CS3230']). 

出力はここ

?- addStudent. 
Student last name: doe. 
Student first name: [jim,k]. 
Student Id: 23123. 
true. 

このようにする必要があり、学生のデータベースは、私がERROR取得しています私のコード

addStudent :- write('Student last name: '), 
      read(L), 
      write('Student first name: '), 
      read(F), 
      write('Student ID: '), 
      read(ID), 
      assertz(student(name([L,F])),ID,_), 
      not(member(ID,student)). 

です：追加/ 3：不定プロシージャ：入力を読み込んだ後にassertz（生徒IDを尋ねた後） どうすればこの問題を解決できますかコード？あなたの述語addStudentで

Answer 1

、あなたのような定義中間述語呼び出し：宿題の残りの部分と

addStudent :- 
[...] 
read(ID), 
insertStd(L,F,ID). 

%Case where student exist, will return true and not get to the second predicate% 
insertStd(L,F,ID) :- student(name(L,F),ID,_). 

%Case where student do not exsist, will insert it to the fact database% 
insertStd(L,F,ID) :- assertz(student(L,F),ID,[])). 

幸運を、質問はこのおかしく割り当てで簡単に取得されていません！

プログラミングパラダイムの犠牲者