racket - Racket 中的 if else 子句或 cond

Question

我正在尝试在 Racket 中编写一个简单的程序，如果 a 的值打印 1是 > 1 , 版画 0如果a = 0的值和 -1如果 a < 0 .我写了以下内容，但看起来它没有处理第三个条件。实际上，我没有包含第三个条件，所以我不知道如何使用“if”子句检查所有三个条件。一点指导表示赞赏。

我是 Racket 的新手。我的程序是:

#lang racket
(define a 3);


(if (> a 0)
    0 
    1)
-1

提前致谢。

Answer 1

您要查找的函数已定义在名称 sgn 下.

您的实现不起作用的原因是它不完整。你要:

(if (= a 0)
    0
    (if (< a 0)
        -1
        1))

或者只是更好看:

(cond 
    [(negative? n) -1]
    [(positive? n)  1]
    [else 0])