Question

This is 'swi-prolog'

• % Our database
  people(matt,new_york).
  people(tom,new_york).
  people(bill,new_york).
  people(tim,virginia).
  people(peggy,north_carolina).
  people(jessica,texas).

  
  % recursive function to print the values
  print2([]).
  print2([H|T]) :-
     format('Name = ~w Place = ~w ~n',H),
     print2(T).

  % if the list is empty than terminate
  find_all_people(_, []).

  % start of the recursive function
  find_all_people(_, [HD|T]) :-
     findall([Name, Location], (people(Name, Location), Location = HD), X), %findall entities where Location = HD
     print2(X), %print the name and location matched
     find_all_people(_, T). %call the function again and send the rest of the list

• allPeople(Name,Locations):-

       findall(Location,people(Name,Location),Locations).

  allPeople(X, [X|_])

  allPeople(X,[_|Tail]):-

         allPeople(X,Tail).

I want to be able to enter location [new_york,texas] and Enter some string when im done entering my input then i want to be able to put my list [new_york,texas] into my find_all_people(_,[new_york,texas]) and print only the names that matches the possibilites.do not do it at the command line i want to make a main be to enter main at the command

Answer 1

Code :-

• % Our database
  people(matt,new_york).
  people(tom,new_york).
  people(bill,new_york).
  people(tim,virginia).
  people(peggy,north_carolina).
  people(jessica,texas).

  
  % recursive function to print the values
  print2([]).
  print2([H|T]) :-
     format('Name = ~w Place = ~w ~n',H),
     print2(T).

  % if the list is empty than terminate
  find_all_people(_, []).

  % start of the recursive function
  find_all_people(_, [HD|T]) :-
     findall([Name, Location], (people(Name, Location), Location = HD), X), %findall entities where Location = HD
     print2(X), %print the name and location matched
     find_all_people(_, T). %call the function again and send the rest of the list

• Images :-

• 
• 

if you like the answer please VOTE for me