從一個列表中獲取元素並追加到其他

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).