我正在研究如何将插入到剪辑中的不同括号中的事实拆分？

Question

下面是我的剪辑代码

CLIPS> (deftemplate animal
(slot name)
(slot favourite-food)
(slot habitat)
(slot main-prey)
(multislot predators)
(slot distinctive-features))
CLIPS> (deffacts animal
(animal (name Sumatran-Elephant)
(favourite-food grass)
(habitat "Rainforest and tropical woodland")
(main-prey "grass, fruit, roots")
(predators Human Tiger)
(distinctive-features "Long trunk and large feet"))

(animal (name Monkey)
(favourite-food fruit)
(habitat "Tropical forests, grasslands and mountainous plains")
(main-prey "Fruit, Seeds, Insects")
(predators Birds Snakes Wildcats)
(distinctive-features "Long, agile tail and loud vocal calls"))

(animal (name Magpie)
(favourite-food fruit)
(habitat "Open woodland, grasslands and savannas")
(main-prey "Fruit, Nuts, Seeds, Insects")
(predators Foxes Cats Coyote)
(distinctive-features "Black and white markings and long wedge-shaped tail")))
CLIPS> (deftemplate find-predators(slot predators))
CLIPS> (defrule find-predators
(find-predators(predators ?predator_name))
(animal(name ?name)
(predators $?other1 ?predator_name $?other2))
=> (printout t ?predator_name " is the predator of " ?name crlf 
"Other predators are " ?other1 ?other2 crlf))
CLIPS> (reset)
CLIPS> (assert(find-predators(predators Human)))
<Fact-4>
CLIPS> (run)
Human is the predator of Sumatran-Elephant
Other predators are ()(Tiger)
CLIPS> (assert(find-predators(predators Coyote)))
<Fact-5>
CLIPS> (run)
Coyote is the predator of Magpie
Other predators are (Foxes Cats)()

但答案应该是这样的

土狼是喜马拉雅的捕食者其他的捕食者是(狐狸)(猫)

如何拆分上述多个插槽的事实？

如果有人知道可以从上面的代码中替换的最佳缺省值，则需要帮助

Answer 1

将变量$?other和$?other2中的多字段值组合为一个多字段值，然后使用内爆$函数将该值转换为捕食者名称之间包含空格的字符串。

(defrule find-predators
   (find-predators (predators ?predator_name))
   (animal (name ?name)
           (predators $?other1 ?predator_name $?other2))
   => 
   (printout t ?predator_name " is the predator of " ?name crlf 
               "Other predators are " (implode$ (create$ ?other1 ?other2)) crlf))