36 lines
493 B
Plaintext
36 lines
493 B
Plaintext
(define (caar seq)
|
|
(car (car seq)))
|
|
|
|
(define (cddr seq)
|
|
(cdr (cdr seq)))
|
|
|
|
(define (cadr seq)
|
|
(car (cdr seq)))
|
|
|
|
(define (cdar seq)
|
|
(cdr (car seq)))
|
|
|
|
(define (caaar seq)
|
|
(car (caar seq)))
|
|
|
|
(define (caadr seq)
|
|
(car (cadr seq)))
|
|
|
|
(define (cadar seq)
|
|
(car (cdr (car seq))))
|
|
|
|
(define (caddr seq)
|
|
(car (cddr seq)))
|
|
|
|
(define (cdaar seq)
|
|
(cdr (caar seq)))
|
|
|
|
(define (cdadr seq)
|
|
(cdr (car (cdr seq))))
|
|
|
|
(define (cddar seq)
|
|
(cdr (cdar seq)))
|
|
|
|
(define (cdddr seq)
|
|
(cdr (cddr seq)))
|