4文字より短い文章からすべての単語を削除する

Question

4文字より短いすべての単語をsentenseから削除したい。結果文と削除された単語の数を出力します。結果を画面とテキストファイルに出力します。

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> 

この問題を解決する努力をしています。