从一个列表中获取元素并追加到其他

Question

我想要一个函数，它将采用两个列表A和B并返回列表Aout和Bout，以便从A的开始到给定元素（例如原子'a '）已被删除并附加到B的末尾，丢弃角色。我的尝试如下：

% usage: take_while(A, Aout, B, Bout) 

take_while([], [], B, B). 

take_while(['a'|As], As, B, B). 

take_while([A|As], As, B, Bout) :- 
     append(B, [A], Bout), 
     %take_while(??? 

最后一项可能是错误的做法。我该怎么做呢？

Answer 1

看起来你需要简单地将调用take_while添加到最后一个子句:(实际上，我不确定为什么需要第二个参数，所以我将它从这个答案中删除）。

take_while([], [], B, B). 

    take_while(['a'|As], As, B, B). 

    take_while([A|As], ARem, B, Bout) :- 
      append(B, [A], BTemp), take_while(As, ARem, BTemp, Bout).