summaryrefslogtreecommitdiff
path: root/examples/reverse.fype
blob: a4384b6651db275c5fb1d344fd2bf5108520a3dc (plain)
1
2
3
4
5
6
7
(def (reverse x)
	(def (my-reverse x y)
		(if (null? x)
		    	y
		    	(my-reverse (cdr x) (cons (car x) y))))
	(my-reverse x '()))
(reverse (list 1 2 3))