0


0

基地局に最も近いヘリコプターを追跡
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`はヘリコプターと基地局間の距離

特定の基地局に最も近いヘリコプターを追跡するためにプロローグコードが必要です

1 回答


0


非常に非効率的でありながら、最小限のソリューションは次のとおりです。

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