Prolog - 省略 [N-1,2] 范围内的所有主要数字答案

【问题标题】：Prolog - omit all primary numbers in range [N-1,2]Prolog - 省略 [N-1,2] 范围内的所有主要数字
【发布时间】：2013-01-17 20:27:49
【问题描述】：

我正在尝试编写一个函数 - noPrime(X,Result)，它给出了 [X-1,2] 范围内所有非主数的列表。

例如——

noPrime(9,Result).
Result = [8,6,4]

到目前为止，我尝试了以下 -

nprimes(4,[]) :- !.
nprimes(X,[H|Rest]) :- H is X-1,nprimes(H,NewRest),
    ( isPrime(H) -> Rest = NewRest; Rest = [H|NewRest]).

但它给了 -

Result = [8, 8, 7, 6, 6, 5, 4, 4].

似乎它复制了非主要的并给了一次主要的。

isPrime - 是我自己的功能，效果很好。

你能发现这里有什么问题以及如何纠正吗？

【问题讨论】：

【解决方案1】：

您总是在nprimes/2 的第二个参数的开头添加元素。然后，如果元素是素数，则第二个参数仍然有元素；如果元素不是素数，它将被添加两次。

应该是：

nprimes(X,Rest) :- H is X-1,nprimes(H,NewRest),
    ( isPrime(H) -> Rest = NewRest; Rest = [H|NewRest]).

【讨论】：