Prolog Найти самое больше число

[melati]

Добрый вечер.

Задача:
Иван имеет 10000 руб.
Иван имеет телевизор.
Иван имеет машину-вишневую "Волгу".
Иван имеет магнитофон.
Петр имеет 5000 руб.
Петр имеет телевизор.
Петр имеет холодильник.
Коля имеет 20000 руб.
Коля имеет телевизор.

Задать вопрос: У кого больше всего денег?

Я написала (swi-prolog):

have('Ivan',rub(10000)).
have('Ivan','TVset').
have('Ivan',avto('Volga','Cherry')).
have('Ivan',magnitophone).
have('Piter',rub(5000)).
have('Piter','TVset').
have('Piter',fridge).
have('Kolya',rub(20000)).
have('Kolya','TVset').
bolshe(X,T):-have(X,rub(Y)),have(T,rub(P)),Y>P.
menshe(X,T):-have(X,rub(Y)),have(T,rub(P)),Y<P.

А вот как дальше найти, у кого больше всего денег?

[rrrFer]

Сначала выбираешь с помощью findall все записи типа have(Who, rum(Moneu)), затем ищешь в полученном списке максимум.

[melati]

Тема закрыта