Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 59f933fdd3
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (14 sloc) 0.295 kb
(define key (lambda (aa) (car (car aa))))
(define val (lambda (aa) (car (cdr (car aa)))))
(define getaa (lambda (aa var)
(if (empty? aa)
()
(if (= var (key aa))
(val aa)
(getaa (cdr aa) var)
)
)
))
(define putaa (lambda (aa var val)
(cons (cons var val) aa)
))
Jump to Line
Something went wrong with that request. Please try again.