Prolog中的堆排序

Question

如何在prolog中编写堆排序代码？

我的输入看起来像：

?- heapsort([4,3,5,2,1],L).

并且上述问题将产生L = [1,2,3,4,5]作为输出。

Answer 1

heapsort(List, Sorted) :-
% Heap-sort
sort(List, Sorted).