在Racket中reduce函数