SWI-Prolog. Преобразовать 1+5+7+8 в [1,5,7,8]

Формулировка задачи:

Нужно преобразовать 1+5+7+8 в [1,5,7,8]. Ввожу в консоли:

?- [s153].
Warning: /home/persej/АлгоритмыИскусственногоИнтеллектаНаЯзыкеPROLOG/s153.pl:35:
    Singleton variables: [B1]
ERROR: /home/persej/АлгоритмыИскусственногоИнтеллектаНаЯзыкеPROLOG/s153.pl:35:
    No permission to modify static procedure `(=)/2'
Warning: /home/persej/АлгоритмыИскусственногоИнтеллектаНаЯзыкеPROLOG/s153.pl:37:
    Singleton variables: [L,B1]
true.
 
?-

s153.pl

/*
simplify([],[]).
simplify(A,E):-
    A=X+Y,
    del1(Y,E,E1),
    simplify(X,E1).
 
del1(Y,E,E1):-
    integer(Y),
    E=L+Z,
    Z1 is Z-Y,
    E1=L+Z1,
    !.
 
del1(Y,E,E1):-
    E=L+Z,
    L=L1+Z1,
    Z1 =:= Y,
    E1=L1+Z;
    
simplify(A,E):-
    delFunc(A,E).
*/
 
/*
simplify(A,E):-
    getSpisok(A,B1,B2).
 
*/
%B1=[].
%B2=[].
%getSpisok([],B1,B2).
%getSpisok([],[],[]).
B1= [].
%getSpisok([],B1).
getSpisok(A,L):-
    A=LF+X,
    integer( X),
    B2=[X|B1],
    getSpisok(LF,B2).
    /*;
    A=LF+X,
    B1=[X|L1],
    getSpisok(A,B1,B2).*/

Когда избавляюсь от ошибки, рассчитываю на: ?- A=1+5+7+8, getSpisok(A,L). L=[1,5,7,8].

Решение задачи: «SWI-Prolog. Преобразовать 1+5+7+8 в [1,5,7,8]»

Листинг программы

split_string("1+5+7+8", "+", "", L).
L = ["1", "5", "7", "8"]

Объяснение кода листинга программы

В данном коде происходит преобразование строки 1+5+7+8 в список [1,5,7,8] с помощью языка программирования Prolog.

В первой строке кода используется функция split_string(1+5+7+8,+, ``, L), которая разделяет исходную строку на подстроки по заданному разделителю (в данном случае +) и сохраняет результат в переменной L.
Результатом выполнения функции будет список подстрок, полученных после разделения исходной строки. В данном случае список будет содержать элементы [1, 5, 7, 8].
Таким образом, значение переменной L будет равно [1,5,7,8].