Схема инвертирования значений

Question

Я пытаюсь преобразовать #t в #f, #f в #t и отрицательное число в положительное и наоборот.

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

Это работает для логического значения, но не для числа.

Answer 1

(else - x) не является действительной формой.Измените его на (else (- x)).

Кстати, вы можете обойтись без cond:

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