Отследить ближайший вертолет до базовой станции

Question

heli_link_dis(h1,b1,800).   
heli_link_dis(h1,b3,1400).  
heli_link_dis(h1,b2,600).  
heli_link_dis(h1,b8,1200).  
heli_link_dis(h2,b4,400).  
heli_link_dis(h2,b3,2000).  
heli_link_dis(h2,b5,500).  
heli_link_dis(h3,b5,1000).  
heli_link_dis(h3,b6,400).  

heli_link_dis = связанное с вертолетом расстояние
h1 означает название вертолета
b1 означает название базовой станции
800 - расстояние между вертолетом ибазовая станция

Мне нужен код пролога, чтобы отследить ближайший вертолет к данной базовой станции

Answer 1

Очень неэффективное, но минималистское решение:

nearest_heli(H, B, D) :-
  heli_link_dis(H, B, D),
  \+ (heli_link_dis(_, _, D1), D1 < D).