IN RACKET Language

Suppose that we have a list containing height/weight pairs for a group of people, in inches and pounds, respectively:

 ( (76 . 195) (81 . 212) (79 . 225) (78 . 206) ... ) 

We would like to know the average height of the people in the group. Use higher-order functions such as map and apply to define a Racket function named average-height. This function takes a list of height/weight pairs as its only argument and returns the the average height of the group. For example:

 > (average-height '((79 . 225))) 79.0 > (average-height '((70 . 150) (62 . 100))) 66.0

Code so far

(define average-height (lambda (height-weight-list) 'YOUR-CODE-HERE )) (define average (lambda values (/ (apply + values) (length values)))) ; ----- tests ------- (check-equal? (average-height '((79 . 225))) 79.0) (check-equal? (average-height '((70 . 150) (62 . 100))) 66.0)