計算序言中列表中某個字符的出現次數

Question

walls(This) :- 
    append(This, NewMap), 
    length(NewMap, N), 
    numWalls(NewMap, W), 
    W >= N/10. 

numWalls([], _, 0). 
numWalls('w'|Tail, W) :- 
    W is W1 + 1, 
    numWalls(Tail, W1). 
numWalls(_|Tail, W):- 
    numWalls(Tail, W). 

我一行一行地註釋掉，直到我取出numWalls（NewMap，W）行爲止。 append平坦化一個二維數組，長度返回平展地圖的適當長度。我們需要計算一個'w'在列表中出現的次數，如果超過10％的列表是'w'，則返回True。

---

walls(Maps) :- 
    append(Maps, NewMap), 
    length(NewMap, N), 
    print(NewMap), 
    numWalls(NewMap, W), 
    print(W) . 

numWalls([], 0). 
numWalls(['w'|Tail], W) :- 
    numWalls(Tail, W1), 
    W1 is W-1. 
numWalls([_|Tail], W):- 
    numWalls(Tail, W). 

「ERROR：是/ 2：論點是沒有充分實例化」 貌似錯誤是我的說法？

Answer 1

看起來你缺少一些方括號。除此之外，小的語法問題，你的程序邏輯是罰款：

numWalls([], 0). 
numWalls(['w'|Tail], W) :- 
    numWalls(Tail, W1), 
    W is W1 + 1. 
numWalls([H|Tail], W):- 
    H \= (w), 
    numWalls(Tail, W). 

編輯：作爲false評論，第二條規則需要改變對消耗w錯誤，避免numWalls([w,w], 0).得逞。

Link to a demo on ideone.