主页 / user-310145

Виктор Титов's questions

Martin Hope
Виктор Титов
Asked: 2020-04-23 09:22:11 +0000 UTC
  • 0

需要将所有奇数和超过给定数量的值从第二个列表添加到第一个。我确实喜欢这样：

add_to_list(L, X, [X|L]).
isEven(X):- 1 is X mod 2.

add_even(_, [], _, _).
add_even(FirstList, [X|SecondList], ResultList, Z):-
    isEven(X),!,
    X > Z,!,
    add_to_list(FirstList, X, ResultList),
    add_even(FirstList, SecondList, ResultList, Z).
add_even(FirstList, [_|SecondList], ResultList, X):-
    add_even(FirstList, SecondList, ResultList, X).

但是，它根本不会生成任何列表，而是返回 true/false

?- add_even([1, 2, 3], [3, 4, 5], X, 4).
Result: false
list
Martin Hope
Виктор Титов
Asked: 2020-04-20 20:12:06 +0000 UTC
  • 0

给定两个集合，检查第一个列表的每个奇数元素都包含在第二个列表中，并且第二个列表的每个偶数元素都不包含在第一个列表中。我不知道为什么我的代码不起作用：

isEvenMatch([], SecondList).
isEvenMatch([X|FirstList], SecondList):-
        isEven(X),
        member(X, SecondList), 
        isEvenMatch(FirstList, SecondList).

isOddNotMatch(FirstList, []).
isOddNotMatch(FirstList, [X|SecondList]):-
    not(isEven(X)),
    not(member(Y, FirstList)), 
    isOddNotMatch(FirstList, SecondList).



program(FirstList, SecondList):-
    isEvenMatch(FirstList, SecondList),
    isOddNotMatch(FirstList, SecondList). 
member(X, [X|List]):-!.
member(X, [Y|List]):-member(X, List).
isEven(X):- Y is X mod 2, Y = 1.
prolog