Вывод в форме предложения Пролог

Question

Я хочу, чтобы этот вывод был в строчном формате. Как это можно сделать?

выход я получаю:

[[[[a]|fat]|man],[[[[[was]|walking]|quickly],to],[[[[the]]|end],[of,[[[the]|long]|corridor]]]]] 

Ожидаемый результат:

a fat man was walking quickly to the end of the long corridor 

Answer 1

Вы можете использовать flatten/2 и atomic_list_concat/3:

:- X = [[[[a]|fat]|man],[[[[[was]|walking]|quickly],to],[[[[the]]|end],[of,[[[the]|long]|corridor]]]]], 
    flatten(X,Y), 
    atomic_list_concat(Y,' ',Z). 
X = [[[[a]|fat]|man], [[[[[was]|walking]|quickly], to], [[[[the]]|end], [of, [[...|...]|...]]]]], 
Y = [a, fat, man, was, walking, quickly, to, the, end|...], 
Z = 'a fat man was walking quickly to the end of the long corridor'.