sml - PolyML の (int, string) のタプルのリストで最小/最大の int を取得します

Question

Python についてこの質問を見たことがありますが、SML (PolyMl) についても同じ質問があります。

(int, string)タプルのリストから最小のタプルの文字列値を抽出する関数を作成したいと思いますint。

たとえば、次のリストがあるとします。

l = [('a', 5), ('b', 3), ('c', 1), ('d', 6)]

'c'最小整数がタプルにあるため、出力は になります('c', 1)。ありがとう！

Answer 1

val l = [(#"a", 5), (#"b", 3), (#"c", 1), (#"d", 6)]

fun min [] = NONE
  | min [x] = SOME x
  | min ((c1,n1) :: (c2,n2) :: xs) = if n1 < n2 then
                                       min ((c1,n1) :: xs) 
                                     else
                                       min ((c2,n2) :: xs)

val SOME (c,_) = min l

Answer 2

val lst = [(#"a", 5), (#"b", 3), (#"c", 1), (#"d", 6)];

(* The first item of a tuple is fetched with #1. *)
#1(List.foldl
    (fn ((new as (_,n)), (old as (_,n0))) =>
      if n < n0 then new else old)
    (hd lst)
    (tl lst));

(* val it = #"c" : char *)