PasteRack.org
Paste # 15840
2019-05-21 10:02:10

Fork as a new paste.

Paste viewed 264 times.


Embed:

  1. #lang racket
  2. (define (media list1)
  3.   (cond
  4.    [(empty? list1) 0]
  5.    [else (/ (+ (first list1) (media (rest list1))) (tamanho list1))]))
  6. (define (tamanho list1)
  7.   (cond
  8.    [(empty? list1) 0]
  9.    [else (+ 1 (tamanho (rest list1)))]))
  10. (media (cons 4 (cons 3 (cons 2 empty))))

=>

13/6