0

我是序言的新手。我正在编写一个带有哥德巴赫猜想问题的代码，我必须列出一个偶数的所有可能组。我找到了这样的代码：

is_prime(2).
is_prime(3).
is_prime(P) :- integer(P), P > 3, P mod 2 =\= 0, \+ has_factor(P,3).  

has_factor(N,L) :- N mod L =:= 0.
has_factor(N,L) :- L * L < N, L2 is L + 2, has_factor(N,L2).

goldbach(4,[2,2]) :- !.
goldbach(N,L) :-
  N mod 2 =:= 0,
  N > 4,
  goldbach(N,L,3).
goldbach(N,[P,Q],P) :-
  Q is N - P,
  is_prime(Q), P < Q.
goldbach(N,L,P) :-
  P < N,
  next_prime(P,P1),
  goldbach(N,L,P1).



next_prime(P,P1) :- P1 is P + 2, is_prime(P1), !.
next_prime(P,P1) :- P2 is P + 2, next_prime(P2,P1).

但是，当我执行程序时，程序成功打印了第一组，但随后出现错误。

1 ?- goldbach(28, L).
L = [5, 23]
ERROR: Type error: `character_code' expected, found `-1' (an integer)
ERROR: In:
ERROR:   [11] char_code(_4206,-1)
ERROR:   [10] '$in_reply'(-1,'?h') at c:/program files/swipl/boot/init.pl:779

我不知道这个错误是如何发生的，我在互联网上寻找信息但一无所获。有人有什么想法吗？谢谢你的回答。

4

1 回答 1

1

Prolog 打印出第一个答案后，它会等待您的输入告诉它您是否对更多答案感兴趣。大致而言，要按下的有效键是;（分号）Space或者n如果您想要更多答案，或者.（句点）Enter或者y如果您对更多答案不感兴趣。

看起来您正在使用其他一些意外的键或组合键。如果您正在尝试键入;，但您的键盘没有一个键，请尝试Space或n代替。

;通过在每个答案后按一下，我可以从您发布的代码中成功获得几个答案：

?- goldbach(28, L).
L = [5, 23] ;
L = [11, 17] ;
false.

编辑：正如您在 Windows 上一样，在第一个答案之后，Prolog 的答案显示错误“char_code/2：由于 'character_code' 而无法表示”以使用swipl-win.exe而不是swipl.exe也可能有用。

于 2017-05-27T10:26:55.147 回答