DCGを使用してリストから非数字を削除する

Question

dcgを使用してPrologに述語CleanList/3を書き込む必要があります。これはリストを解析して同じ番号の新しいリストを返しますが、数字は削除されません。例えば

：

?- cleanList([1,2,d,67,3.2,'CSI2120',foo,5],LL). 
LL = [1, 2, 67, 3.2, 5]. 

私はベースケースを書いて、再帰的なケースでDCGを実装するのに苦労。誰かがこれで私を助けることができますか？ cleanlist/1への引数が空になったときにそれがないすべては空のリストを返して、非常に単純です

cleanlist([]) --> []. 

：あなたが好きなベースケースを定義することによって開始することができ

cleanList(L,LL) :- cleanList(LL,L,[]),!. 

Answer 1

：

基本ケースリスト。 また、句を定義することができます：それは数で、再帰的にcleanlist/1を呼び出す場合に限っ

cleanlist([H|T]) --> ( {number(H)} -> [H], cleanlist(T) ; cleanlist(T)). 

リストHの頭部を保つています。

例：

?- phrase(cleanlist([1]) ,L). 
L = [1]. 

?- phrase(cleanlist([1,3]) ,L). 
L = [1, 3]. 

?- phrase(cleanlist([1,2,a,c,3]) ,L). 
L = [1, 2, 3]. 

?- phrase(cleanlist([1,2,a,c,3,m,k,l,o,"ABC",12]) ,L). 
L = [1, 2, 3, 12]. 

?- phrase(cleanlist([a,b]) ,L). 
L = []. 

?- phrase(cleanlist([A,1,b]) ,L). 
L = [1].