Пролог: упорядочивание списка по алфавиту

Question

У меня есть следующая проблема: я должен заказать список, содержащий только строки в алфавитном порядке, используя только «bagof», «findall», «setoff», я не допущен к использованию каких-либо сортировка алгоритма сортировки.

Вот содержание документа .pl, которому я должен составить список.

musico('R. Stevie Moore'). 
musico('Lane Steinberg'). 
musico('Yukio Yung'). 
musico('Jessie Evans'). 
musico('Miguel'). 
musico('Lucia Pamela'). 
musico('Shooby Taylor'). 
musico('Tiny Tim'). 
musico('The Legendary Stardust Cowboy'). 

Вот что я до сих пор:

all_musicians([Z]) :- 
    findall(X, musico(X), Z). 

Это делает список, содержащий все музыканты, но теперь я не могу показаться, чтобы понять, как заказать.

Answer 1

setof/3 - это то, что вы хотите, так как оно производит отсортированный список результатов.

all_musicians(Z) :- 
    setof(X, musico(X), Z).