Practice 2

practice2.rkt

;list -> number
;takes in a list of numbers and returns the mean.
(define (damean litt)
  (/ (halp litt) (lengtha litt)))

(define (halp litt)
  (cond [(empty? litt) 0]
        [else (+ (first litt) (halp (rest litt)))]))

(define (lengtha litt)
  (cond [(empty? litt) 0]
        [else (+ 1 (lengtha (rest litt)))]))

                     
                        


(check-expect (damean (list 1 2 3 4 5)) 3)
(check-expect (damean (list 1 1 1 1 1)) 1)
(check-expect (damean (list 0 1 2 3 4)) 2)