Scheme有签名功能吗?我找不到有关此的任何信息。

我将符号函数定义为一个函数,当x 0时产生1。

最佳答案

只需使用内置的sgn过程:

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


如果您想知道如何实现它...

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

09-11 20:55