составить правило в Visual Prolog Нужно найти цену самого дорогого фрукта, не могу понять, как это можно сделать, можно через рекурсию или циклы, но у меня что-то не получается .
Программа:
domains
название=symbol
стоимость=real
predicates
дорогой (стоимость)
фрукты (название, стоимость)
clauses
фрукты (яблоко, 20).
фрукты (груша, 15).
фрукты (вишня, 40).
фрукты (гранат, 70).
фрукты (банан, 60).
фрукты (слива, 30).
дорогой (Ц): -фрукты (_,Ц1), фрукты (_,Ц), (Ц-Ц1)>0. %это правило
goal
дорогой (Ц).