如何从SML中的日期列表中获取最早的日期？

Question

我在这项任务中遇到了一些麻烦.这就是教授所要求的:

编写最旧的函数,该函数获取日期列表并评估 (int*int*int)选项.如果列表没有日期,则评估为NONE;如果日期d是列表中最早的日期,则评估为NONE.

我知道如何创建函数并对如何使用日期列表有所了解,但我不知道如何"存储"最旧的值以将其与日期列表的尾部进行比较.这是我提交的内容(它不起作用,它总是检索第一个日期,但我真的很想知道答案)

fun oldest (datelist : (int * int * int) list) =
    if null datelist
    then NONE
    else if null (tl datelist) then
    SOME (hd datelist)
    else let val date = if is_older (hd datelist, hd (tl datelist)) then SOME (hd datelist) else SOME (hd (tl datelist))
     in oldest(tl datelist)
     end

Answer 1

在递归调用中保持值的一种方法是在参数中传递它.由于您无法更改原始函数,因此最常用的解决方案是使用辅助函数来获取此额外参数,以及其他可能的参数.
这样的辅助函数可以取列表的头部并将其与额外的参数进行比较,使用列表尾部的递归调用中最旧的两个参数.然后当列表为空时,您只需返回此额外参数,因为它必须是最旧的.

fun oldestOfTwo (d1, d2) = (* return the oldest/minimum of the two dates *)

fun oldest [] = NONE
  | oldest (d::ds) =
    let
      fun oldest' max [] = SOME max
        | oldest' max (d::ds) =
          oldest (oldestOfTwo (max, d2)) ds
    in
      oldest' d ds
    end

另一个解决方案可能是取出列表中的两个第一个元素,放回两个中最老的元素,因此在每个递归调用中删除列表中的一个元素,并且在某些时候列表中只有一个元素,这必须是最古老的.

fun oldest [] = NONE
  | oldest [d] = SOME d
  | oldest (d1 :: d2 :: ds) = oldest (oldestOfTwo (d1, d2) :: ds)