Возникли трудности - Prolog

Формулировка задачи:

В общем, есть задание. Нужна программа которая запрашивает у пользователя ввод формы мяча и его размер, а затем определяла к какой игре он относится. Например: круглый, большой - футбол. круглый- маленький - гольф и так далее. Но вот не могу сделать это сам и все. Могу сделать отдельно ввод, но совместить это с логикой вывода правильной игры не получается, либо же могу просто написать чтобы были определенные правила и он нам выводил нужное. Как дописать программу так, чтобы по введеным значениям он мог определить, к какой игре относится мяч
domains
   ball=b(form,size)
   form,size = string
 
predicates
   readball(ball)
   run
goal
  run.
clauses
  write("Enter from of a ball 'round or oval' ",readln(From),
  write("Enter size of a ball 'big, middle, small' "), readln(Size).
 
run:-
readball(B), nl, write(B), nl,nl.

Код к задаче: «Возникли трудности - Prolog»

textual
predicates
   ball(string, string, string)
   run
 
goal
   run.
 
clauses
  ball("round", "big", "football").
  ball("round", "small", "golf").
 
   run :-
      write("Enter from of a ball 'round or oval' ",
      readln(Form),
      write("Enter size of a ball 'big, middle, small' "), 
      readln(Size),
      ball(Form, Size, Game),
      !,
      write("Found: ", Game), nl;
      write("Not found.."), nl.

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ