PasteRack.org
Paste # 8528
2019-04-25 11:03:00

Fork as a new paste.

Paste viewed 37 times.


Embed:

  1. #lang racket
  2. ;;replace : lon lon -> lon
  3. (define (replace lon1 lon2)
  4.   (cond
  5.    [(empty? lon1) lon2]
  6.    [else (cons (first lon1) (replace (rest lon1) lon2))]))
  7. (define (our-append lon1 lon2 lon3)
  8.   (replace (replace lon1 lon2) lon3))
  9.  
  10. (our-append (cons 3(cons 15 empty)) (cons 2(cons 4(cons 1 empty))) (cons 10 empty))
  11. (our-append empty (cons 1(cons 2 empty)) (cons 10 empty))
  12.  

=>

'(3 15 2 4 1 10)

'(1 2 10)