PasteRack.org
Paste # 79511
2019-04-25 11:01:41

Fork as a new paste.

Paste viewed 33 times.


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]