13 lines
147 B
Plaintext
13 lines
147 B
Plaintext
(export
|
|
list-ref)
|
|
|
|
(define (list-ref xs i)
|
|
(if (null? xs)
|
|
nil
|
|
(if (= i 0)
|
|
(car xs)
|
|
(list-ref (cdr xs) (- i 1))
|
|
)
|
|
)
|
|
)
|