PasteRack.org
Paste # 80597
2019-05-21 10:08:38

Fork as a new paste.

Paste viewed 373 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))))
  11. (tamanho (cons 4(cons 3(cons 2 empty))))

=>

13/6

3