Programming Languages, Part A Week2 作业(含 challenge questions)

Programming Languages, Part A

Week2 作业(含 challenge questions)

(* 1 *)
fun is_older (d1:int * int * int, d2:int * int * int) =
    if (#1 d1) <> (#1 d2)
    then (#1 d1) < (#1 d2)
    else
	if (#2 d1) <> (#2 d2)
        then (#2 d1) < (#2 d2)
        else (#3 d1) < (#3 d2)

(* 2 *)		       
fun number_in_month (d: (int * int * int) list, m: int) =
    if null d
    then 0
    else if #2 (hd d) = m
    then 1 + number_in_month(tl d,m)
    else number_in_month(tl d,m)

(* 3 *)
fun number_in_months (d:(int * int * int) list, m: int list) =
    if null m
    then 0
    else number_in_month(d,hd m) + number_in_months(d,tl m)
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值