直接使用内置的sgn过程:(sgn -10) => -1 (sgn 10) => 1 (sgn 0) => 0 如果你想知道如何实现它...(define (sign n) (cond ((negative? n) -1) ((positive? n) 1) (else 0)))