SICP lecture 5B 55m00s -> end

gistfile1.scm

;; pure smoke immutable cons

(define cons
  (lambda (x y)
    (lambda (m) (m x y))))

(define car
  (lambda (x)
    (x (lambda (a d) a))))

(define cdr
  (lambda (x)
    (x (lambda (a d) d))))

gistfile2.scm

;; pure smoke mutable cons

(define cons
  (lambda (x y)
    (lambda (m)
      (m x
         y
         (lambda (n) (set! x n))
         (lambda (n) (set! y n))))))

(define car
  (lambda (x)
    (x (lambda (a d sa sd) a))))

(define cdr
  (lambda (x)
    (x (lambda (a d sa sd) d))))

(define set-car!
  (lambda (x y)
    (x (lambda (a d sa sd) (sa y)))))

(define set-cdr!
  (lambda (x y)
    (x (lambda (a d sa sd) (sd y)))))