clips - Clips - ピラミッドの数字のリストを出力します

Question

次のように 1234 リストを印刷しようとしています。

1
12
123
1234

これが私のコードです：

    (deffacts lists 
            (list 1 2 3 4)
    )
    (defrule print
        (list $?x ? $?)
        =>
        (printout t ?x )
    )

どうやって続けたらいいのかわからない…

Answer 1

CLIPS> 
(deffacts lists 
   (list 1 2 3 4))
CLIPS> 
(deffunction pyramid-print (?list)
   (loop-for-count (?i (length$ ?list))
      (printout t (implode$ (subseq$ ?list 1 ?i)) crlf)))
CLIPS>        
(defrule print
   (list $?x)
   =>
   (pyramid-print ?x))
CLIPS> (reset)
CLIPS> (run)
1
1 2
1 2 3
1 2 3 4
CLIPS>