picrin/etc/R7RS/inputs/peval.input

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))