Необходимо создать кластер (L, A, B), который возвращает подсписки L на A и B соответственно, основываясь на условии

Question

Допустим, у нас есть список L = [1, 5, 32, 5, 7, 8] Мне нужно создать кластер (L, A, B), который делит L на 2 подсписка (A, B). Предполагается, что A содержит все значения, которые появляются в списке L ДО значения 32. Предполагается, что B содержит все значения, которые появляются в списке L ПОСЛЕ значения 32. 32 предполагается исключить из обоих списков.

?- cluster([11 , 18 , 9 , 32 , 13 , 12 ] , A , B).
A = [11 , 18 , 9], B = [13 ,12].

Answer 1

Почему бы не

cluster(L, Break, A,B) :-
    append(A, [Break|B], L).

Например

? cluster([11 , 18 , 9 , 32 , 13 , 12 ] , 32, A , B).
A = [11, 18, 9],
B = [13, 12] ;
false.

Answer 2

Вот код для требуемой операции:

cluster([L|Rest],[L|A],B) :-
   L \= 32,
   cluster(Rest,A,B).

cluster([L|Rest],[],Rest):-
   L == 32.

Что делает этот код, он перебирает список и добавляет значения в A, пока не достигнет первого значения 32 , а затем присваивает оставшуюся часть списка напрямую B.