Prolog Wordcounter功能有问题

Question

当我测试这个字符串时“不，我绝对不是一个馅饼！我得到了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).