Вспомогательная функция Оценочный калькулятор

Question

Почему мне говорят, что let незакончен?

let comp_grade (perc_exam, perc_homework, perc_attendance) = let (grade_exam, grade_homework, grade_attendance) = 
    (float)(perc_exam/100 * grade_exam + perc_homework/100 * grade_homework + perc_attendance/100 * grade_attendance); 

let COP4555_grade_computer = comp_grade(50,30,20); 
let CEN3723_grade_computer = comp_grade(70,30,0); 

let COP4555_student1_grade = COP4555_grade_computer (90, 95, 100); 
let COP4555_student2_grade = COP4555_grade_computer (70, 80, 100); 
let CEN3723_student1_grade = COP4555_grade_computer (90, 95, 100); 
let CEN3723_student2_grade = COP4555_grade_computer (70, 80, 100); 

Редактировать: Индивидуально они работают, но когда я складываю их, внутренняя функция теперь говорит, что она незавершенна.

Answer 1

let comp_grade (perc_exam, perc_homework, perc_attendance) 
       (grade_exam, grade_homework, grade_attendance) = 
    float (perc_exam  /100 * grade_exam + 
      perc_homework /100 * grade_homework + 
      perc_attendance/100 * grade_attendance) 

Вернуться функция

let comp_grade (perc_exam, perc_homework, perc_attendance) = 
      fun (grade_exam, grade_homework, grade_attendance) -> 
    float (perc_exam  /100 * grade_exam + 
      perc_homework /100 * grade_homework + 
      perc_attendance/100 * grade_attendance)