Permalink
Cannot retrieve contributors at this time
Fetching contributors…
Cannot retrieve contributors at this time
| (define (memq item x) | |
| (cond ((null? x) false) | |
| ((eq? item (car x)) x) | |
| (else (memq item (cdr x))))) | |
| (list 'a 'b 'c) ; '(a b c) | |
| (list (list 'george)) ; '((george)) | |
| (cdr '((x1 x2) (y1 y2))) ; '((y1 y2)) | |
| (cadr '((x1 x2) (y1 y2))) ; '(y1 y2) | |
| (pair? (car '(a short list))) ; false | |
| (memq 'red '((red shoes) (blue socks))) ; false | |
| (memq 'red '(red shoes blue socks)) ; '(red shoes blue socks) | |