1 665c255d 2023-08-04 jrmu (defun reverse-r (seq)
 2 665c255d 2023-08-04 jrmu   (fold-right (lambda (x y)
 3 665c255d 2023-08-04 jrmu 		(append y (list x)))
 4 665c255d 2023-08-04 jrmu 	      nil
 5 665c255d 2023-08-04 jrmu 	      seq))
 6 665c255d 2023-08-04 jrmu 
 7 665c255d 2023-08-04 jrmu (defun reverse-l (seq)
 8 665c255d 2023-08-04 jrmu   (fold-left (lambda (x y)
 9 665c255d 2023-08-04 jrmu 	       (cons y x))
10 665c255d 2023-08-04 jrmu 	     nil
11 665c255d 2023-08-04 jrmu 	     seq))