删除sentense中短于4个字母的所有单词

Question

我想删除短于4个字母的senense中的所有单词。打印结果句子和删除单词的数量。在屏幕上和文本文件中打印结果。

CLIPS专家系统。有几个导游都在互联网上

Answer 1

这里是一个开始：

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> 

当问堆栈溢出问题，你应该在至少一个令牌的努力证明您已经阅读现有的文件和作出努力解决问题。