内置sort / 4的快速替代方法

Question

我正在寻找sort/4的替代方法。 我目前无法使用内置版本。

如果可用，我需要的语法将类似于以下sort(1, @>=, List, Sorted) 。 列表中的元素看起来像这样([Value:x:y,z:a]:[], ...) 。 结果必须根据Value参数按降序排序。

用于测试目的的示例列表：

[[16：x：y，z：a]：[]，[64：x：y，z：a]：[]，[4：x：y，z：a]：[]，[1024：x ：y，z：a]：[]，[0：x：y，z：a]：[]，[100：x：y，z：a]：[]，[50：x：y，z： a]：[]，[-100：x：y，z：a]：[]，[0：x：y，z：a]：[]]

Answer 1

只需提取键，将其放在结构的前面，调用sort / 2（或msort / 2，以避免丢失重复项），然后从已排序列表中剥离键即可。

可以使用相同的代码（列表访问）将密钥放在最前面并删除它。 最后一步将反转列表，以降序排列。

alternative_sort(Structs, Sorted) :-
  structs_keyed(Structs, Keyed),
  sort(Keyed, Temp),
  structs_keyed(TempR, Temp),
  reverse(TempR, Sorted).

structs_keyed(Sorted, Temp) :- % assume library(yall) available
  maplist([S,K]>>(S=([Value|_]:_),K=Value/S), Sorted, Temp).

确实如此，因为排序键值是第一个值元素，所以可以减少到

alternative_sort(Structs, Sorted) :-
  sort(Structs, Ascending),
  reverse(Ascending, Sorted).