首先,我是 Prolog 的新手,我为一个愚蠢的问题道歉!
我需要编写一个规则来分解月份列表并打印 may
之前和 may
之后的月份。
到目前为止,我写了以下内容:
append_lists([], L, L).
append_lists([H|L1], [L2], [H|L3]) :-
append_lists(L1, L2, L3).
这很好用,如果我手动查询以下内容:
| ?- append_lists(Before, [may|After], [jan, feb, july, may, dec, oct, nov]).
Before = [jan,feb,july],
After = [dec,oct,nov] ? ;
no
我现在如何重写我的规则,以便
[may|After]
代替规则中的 L1
并且它可以接受任何月份?我尝试了以下但没有奏效:append_lists([], L, L).
append_lists([Month|Before], After, [Month|Result]) :-
append_lists(Before, After, Result).
最佳答案
您可以使用 append/3 来执行此操作。
after_and_before(Month, ListOfMonths, Before, After):-
append(Before, [Month|After], ListOfMonths).
测试用例:
?- after_and_before(may, [jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec], Before, After).
Before = [jan, feb, mar, apr],
After = [jun, jul, aug, sep, oct, nov, dec]
关于list - Prolog 列表 - 在元素之前和之后打印列表,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/34531999/