23

USEFUL FUNCTIONS cont.


"append"



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



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