Prolog Wordcounter函数有问题吗

当我测试这个字符串时，“不，我绝对不是一个馅饼！我得到6个作为计数单词，但7是正确的答案。我忘记了一些情况。但是当我测试这个字符串时，我得到了正确的答案w0w这样的t3xt…是一些我忘记的情况。这个函数将在Prolog中计算字符串中的单词数

wordcounter([],0).
wordcounter([X],0).
wordcounter([X,Y|Xs],W):- is_alpha(X),\+is_alpha(Y),wordcounter(Xs,W1), W is W1 + 1.
wordcounter([X,Y|Xs],W):- \+is_alpha(X),is_alpha(Y),wordcounter(Xs,W1),W is W1 + 1.
wordcounter([X,Y|Xs],W):- is_alpha(X),is_alpha(Y), wordcounter([Y|Xs],W).
wordcounter([X,Y|Xs],W):- \+is_alpha(X),\+is_alpha(Y),wordcounter(Xs,W).

---

你能格式化你的代码吗？wordcounter（[]，0）。wordcounter（[44 | Xs]，W）：-wordcounter（Xs，W1），W是W1+1。wordcounter（[X，Y | Xs]，W）：-is|u alpha（X），\+is|u alpha（Y），wordcounter（Xs，W1），W是W1+1。wordcounter（[X，Y | Xs，Xs]，W）：-\+is| is| is alpha（X，is alpha，Y），W），W:-is | | is alpha（X，Y），wordcounter）是W1）（X，Y，Y，Y，X，X），W:：：：：：：：）是（X）是（X）是（X）是（X），是（X）是（X）是（X）是（X）是（X）是（X），是（X）是（X），是（X），是（X），是（X），是（X），是（X），是（X），是（X），是（是）是）是（A）是（是）是）是（是）是）是（是）是）是（是）是）是（是）是（是）是（是）是）是（是）是（是）是）是（是）是（是）是（是）是）是（是（是）是）是（是）是）是（是）是（是（是）是（是）是）是（是）是）是（是（是（是）是）的阿尔甲（是）是（是）是（是）是）是（是），是），是（W）：-is_α（X）是字母（Y），是字母（Y），是字计数器（Xs，W）。字计数器（[X，Y，Xs]，W）：\+是字母（X），\+是字母（Y），字计数器（Xs，W）。字计数器（[]，0）。字计数器（[44，Xs]，W）：-字计数器（Xs，W1），W是W1+1。字计数器（[X，Y，Xs]，W）：是字母（X），\+是字母（X），\+是字母（Y），字计数器（Xs，W1），W是W1+1。计数器（[X，是字母），字计数器（[124Y，Xs），是字母，W）：]，W是W1+1。wordcounter（[X，Y|Xs]，W）：-is|alpha（X），is|alpha（Y），wordcounter（Xs，W）。wordcounter（[X，Y|Xs]，W）：\+is|alpha（X），\+is|alpha（Y），wordcounter（Xs，W）。好的，谢谢。我只是想编辑你的第一篇文章并遵循以下格式代码规则：）：