PasteRack.org
Paste # 60520
2019-02-22 08:32:01

Fork as a new paste.

Paste viewed 264 times.


Embed:

  1. #lang racket
  2.  
  3. ( define-struct person ( age sex ) )
  4. ( define-struct student ( person id ) )
  5.  
  6. (define s1 (make-student (make-person 10 "male") 123))
  7. (define s2 (make-student (make-person 20 "male") 456))
  8. (define s3 (make-student (make-person 30 "male") 789))
  9. (define stud-lst (list s1 s2 s3))
  10.  
  11.  
  12. (define (mean-of-ages students)
  13.   (cond
  14.     [(= (length students) 1)  (/ (person-age (student-person (first students))) 1 )]
  15.     [else (+ (person-age(student-person(first students)))  (mean-of-ages (rest students)))]
  16.     )
  17.   )

=>