私は、次の検索プロローグを使用して次のことを行いたいと考えています。同じ性別を持つすべての人を返しますが、その性別はキーボードから読み取る必要があります。キーボードを読まなくてもできます。コードは次のようになります。
person('1', 'Joane', 'Women').
person('2', 'John', 'Man').
person('3', 'Peter', 'Man').
listaBySex(List):-
findall(Name, pessoa(_, Name , 'Man'), List).
今、私の困難は、キーボードから読み取られた値を使用してこの調査を行うことです。キーボードから値を読み取ることができますが、コードが次のようになっている時点で、この値を読み取り findall を読み取って値を返す方法をほとんど知りません。
person('1', 'Joane', 'Women').
person('2', 'John', 'Man').
person('3', 'Peter', 'Man').
listaBySex(List):-
write('Sex: '), read(Sex),
findall(Name, pessoa(_, Name , Sex), List).