functional-programming - SML 和函数式编码风格

Question

我开始通过 Programming languages 学习标准机器学习类(class)。

在第一个作业中，我尝试写一个函数is_older这需要两个日期并计算为 true或 false .它评估为 true如果第一个参数是第二个参数之前的日期(如果两个日期相同，则结果为 false .)。

所以我写了以下代码:

fun is_older(first: int * int * int, second: int * int * int) =
  if(#1 first = #1 second andalso #2 first = #2 second andalso #3 first = #3 second) then false
  else if (#1 first < #1 second) then true
  else if (#1 first = #1 second andalso #2 first < #2 second) then true
  else if (#1 first = #1 second andalso #2 first = #2 second andalso #3 first < #3 second) then true
  else false

代码工作正常，但看起来很难看。

如何以函数式风格重写此代码？

Answer 1

两个建议:

使用模式匹配来分解元组。

当 andalso 时使用 bool 运算符( orelse 、 if/else 等)构造返回 bool 值。

一个更易读的版本:

(* Compare two dates in the form of (year, month, day) *)
fun is_older((y1, m1, d1), (y2, m2, d2)) =
  y1 < y2 orelse (y1 = y2 andalso m1 < m2) 
  orelse (y1 = y2 andalso m1 = m2 andalso d1 < d2)