scheme scheme scheme scheme

(define-struct student (ID name score));contract:findTopper:list->number;purpso:To find the 10 of the student who scored the highest ,given a instances of type student;example:(findTopper (list (make-student 2324 "Seenu" 60) (make-student 5678 "Cherry" 100) (make-student 8901 "Micky" 40) (make-student 5839 "David" 30)(define findTopper(lambda (studentList)(let traverseStudentList((lengthList (length studentList))(index 1 )(currentTopper (list-ref studentList 0))) (if (< index lengthList)(if (> (student-score (list-ref studentList index )) (student-score currentTopper))(begin(set!currentTopper (list-ref studentList index))(traverseStudentList lengthList (+ index 1) currentTopper))(traverseStudentList lengthList (+ index 1) currentTopper))(student-ID currentTopper))))) (define-struct student (ID name score));contract:findTopper:list->number;purpso:To find the 10 of the student who scored the highest ,given a instances of type student;example:(findTopper (list (make-student 2324 "Seenu" 60) (make-student 5678 "Cherry" 100) (make-student 8901 "Micky" 40) (make-student 5839 "David" 30)))(define findTopper(lambda (studentList)(if (and (list?studentList) (not (null?studentList))) (validateList studentList))(let traverseStudentList((lengthList (length studentList))(index 1 )(currentTopper (list-ref studentList 0))) (if (< index lengthList)(if (> (student-score (list-ref studentList index )) (student-score currentTopper))(begin(set!currentTopper (list-ref studentList index))(traverseStudentList lengthList (+ index 1) currentTopper))(traverseStudentList lengthList (+ index 1) currentTopper))(student-ID currentTopper)))(display"Invalid Input"))) ;contract:validateList:list->boolean;purpose:To check if all the elements of list is of type student;;example:(validateList (list (make-student 2324 "Seenu" 60) (make-student 5678 "Cherry" 100) (make-student 8901 "Micky" 40) (make-student 5839 "David" 30)))(define validateList(lambda (studentList)(if (not (null?studentList))(if (not (student?(car studentList)))#f(validateList (cdr studentList)))#t)))