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）行。追加展平二维数组，长度返回展平地图的正确长度。我们需要计算列表列表中“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).

“错误：是/ 2：参数未充分实例化” 看起来错误是我的is语句？

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.

计算prolog中列表中字符的出现次数

1 个答案: