查找元组列表中的最小数字

Question

我有一个由元组组成的列表，它是元组列表的第一个元素，第二个元素是数字：

([List],Number)|T]

如何从此列表中找到最小值？它是否与在数字列表中查找数字相同？

谢谢！

编辑：我试过这个但是在某些时候回溯会弄乱最终的结果，所以我肯定做错了...

menor([(L1,Dist)|T],(LR,DistMenor)):-
    menor(T, Dist, (LR,DistMenor)).

menor([], Dist, (LR,Dist)).
menor([(X,Y)|T], Dist, (X,Y)) :-
    Y < Dist,!,
    menor(T, Y, (Path,Cost)).

menor([_|T], Dist, (X,Y)):-
    menor(T, Dist, (Path,Cost)).