PasteRack.org
Paste # 96188
2019-05-21 10:04:28

Fork as a new paste.

Paste viewed 336 times.


Embed:

#lang racket
(define (media list1)
  (cond
   [(empty? list1) 0]
   [else (+ (first list1) (media (rest list1))]))
(define (tamanho list1)
  (cond
   [(empty? list1) 0]
   [else (+ 1 (tamanho (rest list1)))]))
(media (cons 4 (cons 3 (cons 2 empty))))
(tamanho (cons 4(cons 3(cons 2 empty))))

=>

prog:5:46: read: missing `)' to close preceding `(', found instead `]'
  context...:
   /home/pasterack/racket68/collects/syntax/module-reader.rkt:186:17: body
   /home/pasterack/racket68/collects/syntax/module-reader.rkt:183:2: wrap-internal
   /home/pasterack/racket68/collects/racket/../syntax/module-reader.rkt:65:9: lang:read-syntax
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code15
   /home/pasterack/pasterack/tmp/96188/96188code.scrbl: [running body]
   loop
   ...cket/cmdline.rkt:179:51
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/run.rkt: [running body]