PasteRack.org | ||
Paste # 79511 | ||
2019-04-25 11:01:41 | ||
Fork as a new paste. | ||
Paste viewed 33 times. | ||
Tweet | ||
Embed: | ||
#lang racket ;;replace : lon lon -> lon (define (replace lon1 lon2) (cond [(empty? lon1) lon2] [else (cons (first lon1) (replace (rest lon1) lon2))])) (define (our-append loi1 loi2 loi3) (replace (replace lon1 lon2) lon3) (our-append (cons 3(cons 15 empty)) (cons 2(cons 4(cons 1 empty))) (cons 10 empty)) (replace empty (cons 1(cons 2 empty)) (cons 10 empty))
=>
prog:7:0: read: expected a `)' to close `(' possible cause: indentation suggests a missing `)' before line 10 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/79511/79511code.scrbl: [running body] loop ...cket/cmdline.rkt:179:51 /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/run.rkt: [running body]