代码之家 › 专栏 › 技术社区 › Adam Morad

方案反转值

scheme

Adam Morad · 技术社区 · 6 年前

我试图将#t转换为#f,#f转换为#t,并将负数转换为正数和负数。

(define inverse
  (lambda (x)
    (cond ((eq? x #t) #f)
          ((eq? x #f) #t)
          (else - x))))

它适用于布尔值,但不适用于数字。

1 回复 | 直到 6 年前

bipll 6 年前

(else - x) 不是有效的表单。将其更改为 (else (- x)) 。

顺便说一句,你可以不带 cond :

(define (inverse x) (if (boolean? x) (not x) (- x)))

推荐文章

David J. · 这个基本的scheme函数有什么问题

2 年前

J. Mini · 是否将非函数重新指定为具有集合的函数!创建一个新的框架?

2 年前

Mugoya Dihfahsih · 如何找到给定向量中每个字符串元素的向量长度

2 年前

Asher · 如何使用DrRacket遵循简单方案手册

6 年前

Flux · 如何从MIT方案访问环境变量?

6 年前

Drawkcab Esrever · 方案难以理解我的函数“concat list”输出的输出

6 年前

Adam Morad · 方案反转值

6 年前

Adam Morad · 方案更改树值

6 年前

mishless · 为什么我的以下过程在SICP图片语言中的实现表现得很奇怪?

6 年前

lightning_missile · 词法范围和共享对象

6 年前