Effacer tous les mots de sentense qui sont plus courts que 4 lettres

Question

Je veux supprimer tous les mots de sentense qui sont plus courts que 4 lettres. Imprimer la phrase de résultat et le nombre de mots supprimés. Imprimer le résultat sur l'écran et dans le fichier texte.

Système CLIPS Expert. Il y a peu de guides partout sur l'internet

Answer 1

est ici un début:

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> 

Lorsque vous posez des questions sur Stack Overflow vous devez faire à moins d'un effort symbolique pour démontrer que vous avez lu la documentation disponible et fait un effort pour résoudre le problème.