Scheme中的签名功能？

Question

Scheme有标志功能吗？我找不到任何相关信息.

我将一个符号函数定义为一个函数,当x <0时产生-1,当x = 0时产生0,当x> 0时产生1.

Answer 1

只需使用内置sgn程序:

(sgn -10)
=> -1
(sgn 10)
=> 1
(sgn 0)
=> 0

万一你想知道如何实现它...

(define (sign n)
  (cond ((negative? n) -1)
        ((positive? n)  1)
        (else 0)))