22

USEFUL FUNCTIONS cont.


"rev"



( rev '( b c d ) '( a ) )   =>  '( d c b a )



( define ( rev x z )
	( cond ( ( null? x ) z )
		( else ( rev ( cdr x )  ( cons ( car x ) z ) ) ) ) )