24

USEFUL FUNCTIONS cont.


"reduce"



( reduce + '( 1 2 3 4 5 ) 0 )

	15


( reduce * '( 1 2 3 4 5 ) 1 )

	120



( define ( reduce f x v )
	( cond ( ( null? x ) v )
		( else ( f ( car x )  ( reduce f ( cdr x ) v ) ) ) ) )