PasteRack.org
Paste # 89317
2019-05-21 10:05:09

Fork as a new paste.

Paste viewed 415 times.


Embed:

  1. #lang racket
  2. (define (media list1)
  3.   (cond
  4.    [(empty? list1) 0]
  5.    [else (+ (first list1) (media (rest 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))))

=>

9

3