刪除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> 

當問堆棧溢出問題，你應該在至少一個令牌的努力證明您已經閱讀現有的文件和作出努力解決問題。