Сортировка подсписок пролог

Question

У меня есть этот список в Прологе:

[[13, Audi A3,11.11.2011,75000, Berlina, ауди, 12100 верде Горох, [4wd], +3,0000133333333334], [11, santafe, 11.11.2011.80000, fuoristrada, audi, 2232232, verde pisello, [Metalizzata, Sedile in Pelle, 4wd], 7.0000125]] |

Я хочу, чтобы отсортировать этот список для последнего значения подсписка как пример я хочу иметь этот результат:

[[11, Santafe, 11.11.2011,80000, fuoristrada, ауди, 2232232, верде Горох, [Metalizzata, Sedile в Pelle, 4wd], 7,0000125], [13, Audi A3,11.11.2011,75000, Berlina, ауди, 12100, верде Горох, [4wd], 3,0000133333333334]]

Answer 1

predsort это твой друг. Тогда-то легко, но продать Audi verde pisello будет оставаться очень, очень трудно ...

sort_on_last(List, Sorted) :- 
    predsort(compare_last, List, Sorted). 

compare_last(R, X, Y) :- 
    last(X, Xl), 
    last(Y, Yl), 
    compare(R, Xl, Yl). 

Чтобы попробовать:

test :- sort_on_last(
     [[11,santafe,'11.11.2011',80000,fuoristrada,audi,2232232,'verde pisello',['Metalizzata','Sedile in Pelle','4wd'],7.0000125], 
     [13,'Audi A3','11.11.2011',75000,berlina,audi,12100,'verde pisello',['4wd'],3.0000133333333334] 
     ], S), 
    maplist(writeln, S). 
?- test. 
[13,Audi A3,11.11.2011,75000,berlina,audi,12100,verde pisello,[4wd],3.0000133333333334] 
[11,santafe,11.11.2011,80000,fuoristrada,audi,2232232,verde pisello,[Metalizzata,Sedile in Pelle,4wd],7.0000125] 
true. 

Особенность predsort/3: он действует как своего рода/2, таким образом удалить дубликатов. Чтобы избежать этой проблемы, compare_last/3 можно изменить, избегая возвращения =, таким образом:

compare_last(R, X, Y) :- 
    last(X, Xl), 
    last(Y, Yl), 
    (Xl < Yl -> R = (<) ; R = (>)).