PasteRack.org
Paste # 2903
2019-04-25 11:22:10

Fork as a new paste.

Paste viewed 48 times.


Embed:

#lang racket
;;valor-hora : lon lon -> lon
;;
(define (hora-salario valor-hora tempo)
  (cond
   [(empty? valor-hora) empty]
   [else (cons (* (first valor-hora) (first tempo) (hora-salario (rest valor-hora) (rest tempo)))]))

=>

prog:7:97: 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/2903/2903code.scrbl: [running body]
   loop
   ...cket/cmdline.rkt:179:51
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/run.rkt: [running body]