Печать в схеме

Question

Я испытываю некоторые затруднения при печати строки в схеме после использования условия и получаю следующую ошибку:

application: not a procedure;
 expected a procedure that can be applied to arguments
  given: #t
  arguments...:

Не могу понять, что с ней не так, и был бы признателен за любую помощь .

(define (neg int)
  (cond
    (((< int 0) (display "negative"))
     (* int (-1)))))

Answer 1

У вас слишком много скобок в начале вашего состояния; вам нужно два, а не три. Помните, что в Схеме, если вы окружаете что-то между (), это становится функциональным приложением! Вот почему это не имеет смысла: (-1), потому что -1 это не функция, это число. Кроме того, что вы будете делать, если значение не отрицательное? Тебе тоже нужно разобраться с этим делом! Попробуйте это:

(define (neg int)
  (cond ((< int 0)
         (display "negative ")
         (* int -1)) ; or better: (- int)
        (else
         (display "positive ")
         int)))