Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 2a9dba2f9e
Fetching contributors…

Cannot retrieve contributors at this time

25 lines (16 sloc) 0.377 kb
(define a 1)
(define b 1)
(list a b)
(list 'a 'b)
(list 'a b)
(car '(a b c))
(cdr '(a b c))
(memq 'a '(b a c d))
(define (my-memq item x)
(cond ((null? x) #f)
((eq? item (car x)) x)
(else (my-memq item (cdr x)))))
(my-memq 'a '(b a c d))
(memq 'apple '(pear banana prune))
'(x (apple sauce) y apple pear)
(memq 'apple '(x (apple sauce) y apple pear))
Jump to Line
Something went wrong with that request. Please try again.