File: kons.scm

package info (click to toggle)
elk 3.99.8-10
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 5,204 kB
  • sloc: ansic: 22,346; lisp: 6,208; makefile: 775; sh: 171; awk: 154; cpp: 92
file content (13 lines) | stat: -rw-r--r-- 224 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
;;; -*-Scheme-*-

(define (kons left right)
  (lambda (op)
    (case op
      (a left)
      (d right))))

(define (kar cell) (cell 'a))
(define (kdr cell) (cell 'd))

(let ((k (kons 1 2)))
  (print (cons (kar k) (kdr k))))