smlnj - number_in_month 练习（不明白为什么我在 SML 中收到“EOF 处的语法错误”）

Question

我应该编写一个程序，它需要一个日期列表，然后是一个月，然后返回包含该月的日期数。我不断收到语法错误，我不明白为什么。

fun number_in_month (dates : int list, month : int) =   
    let val tally = 0
    in
        let fun tally_counter(tally_dates : int list)=      
                if (tally_dates[1]) = month 
                then (
                     tally = tally + 1
                     tally_counter(tl tally_dates)
                     )
                else if null (hd tally_dates)
                     then tally
        in 
            tally_counter(dates)
        end

Answer 1

看起来您缺少end最外层的语句let，以及else第二个if语句的子句。

当然，第一个会导致 EOF 出现语法错误。我不确定第二个，但我相信它也会。