4 harften daha kısa olan tüm kelimeleri silme

Question

4 harften daha kısa olan tüm kelimeleri silmek istiyorum. Sonuç cümlesi yazdır ve silinen kelimelerin sayısı. Ekrandaki ve metin dosyasındaki sonucu yazdırın.

CLIPS Uzman Sistem. Birkaç kılavuzları tüm internet İşte

Answer 1

üzerinde bulunmaktadır bir başlangıç:

CLIPS> 
(deftemplate sentence 
    (multislot text) 
    (slot deleted_count (default 0))) 
CLIPS> 
(defrule delete 
    ?f <- (sentence (text $?b ?word&:(< (str-length ?word) 4) $?e) 
        (deleted_count ?count)) 
    => 
    (modify ?f (text ?b ?e) (deleted_count (+ 1 ?count)))) 
CLIPS> (assert (sentence (text the quick brown fox jumped over the lazy dogs))) 
<Fact-1> 
CLIPS> (run) 
CLIPS> (facts) 
f-0  (initial-fact) 
f-4  (sentence (text quick brown jumped over lazy dogs) (deleted_count 3)) 
For a total of 2 facts. 
CLIPS> 

mevcut belgeleri okumak ve yaptık size göstermek için bir azından belirteç çaba yapmalıdır Yığın taşması sorular sorarak Sorunu çözmek için bir çaba.