coding-exercises/2/4.rkt


1
2
3
4
5
6
7
8
9
10
11
12
13

#lang racket
(define (cons x y)
  (lambda (m) (m x y)))

(define (car r)
  (r (lambda (p q) p)))

(define (cdr r)
  (r (lambda (p q) q)))

(define test-cons (cons 0 1))
(car test-cons)
(cdr test-cons)