17 lines
403 B
Plaintext
17 lines
403 B
Plaintext
1000
|
|
|
|
; example8
|
|
|
|
(lambda (input)
|
|
(letrec ((reverse (lambda (in result)
|
|
(if (pair? in)
|
|
(reverse (cdr in) (cons (car in) result))
|
|
result))))
|
|
(reverse input '())))
|
|
|
|
((a b c d e f g h i j k l m n o p q r s t u v w x y z))
|
|
|
|
(lambda ()
|
|
(list 'z 'y 'x 'w 'v 'u 't 's 'r 'q 'p 'o 'n
|
|
'm 'l 'k 'j 'i 'h 'g 'f 'e 'd 'c 'b 'a))
|