JESS: Ordered facts and list problems

[ANA TANASESCU]

Hello everyone,

 

I have the following problem. I want to find in my working
memory the ordered facts with the same second element and to generate a fact
that contains this element and the other elements after him.

So if I have the following facts:

(fact e1 a) (fact e1 b) (fact e1 c) (fact e1 d) 

I want to obtain a fact like this (final e1 a b c d).

 

Because I didn’t know how to do this, I have tried to use
queries and generate a list with the following structure (e1 a b c d).

Unfortunately, after I run the code:

(deffacts factslist

    (fact e1 a)

    (fact e1 b)

    (fact e1 c)

    (fact e1 d))

 

(reset)

 

(defquery
search-by-name

(declare (variables ?e1))

(fact ?e1 ?e2))

 

(bind ?result (run-query*
search-by-name e1))

 

(while (?result next)

(bind ?list (create$ (?result getSymbol e1)(?result getSymbol e2))))

 

(printout t "List is " ?list  crlf)

 

The result is (e1 d). 

What should I do?

 

Best regards,

Ana