我如何计算prolog中的单词？

Question

我尝试在prolog中计算字符串中的单词。喜欢＆＃34;不，我绝对不是一个馅饼！＆＃34; 给我7号和下一个例子＆＃34; w0w这样的t3xt ...给5号。 我有关于减去这是一个库函数的东西，只能得到白色字符。但问题是，没有办法会回馈5而不是两个字。 我想过

filter([],L).
filter([X,Y|XS],[Y|XS]):-  X = ' ',Y = ' ',L = [Y|XS], filter([Y|XS],L).
filter([X|XS],L):- filter(Xs,L). 

那将删除白色空间并返回没有办法，但它有点工作，有人有一个小费。