Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Let me really scare you

Name: Anonymous 2007-09-25 8:38 ID:o8HQ8qmh

cons = lambda a, b: lambda pick: {1: a, 2: b}[pick]
car = lambda x: x(1)
cdr = lambda x: x(2)

Name: Anonymous 2007-09-25 9:21 ID:6z/NAx/Q

(define cons

  (lambda (a b)

    (lambda (m)

      (m a b))))



(define car

  (lambda (x)

    (x (lambda (a b) a))))



(define cdr

  (lambda (x)

    (x (lambda (a b) b))))

Newer Posts