Scheme. Lisp. Заметки.

; Вычисление модуля

(define (abs x)
  (cond ((< x 0) (- x))
        (else x)))

(define (abs x)
  (if (< x 0) ; Предикат
      (- x)   ; Следствие
      x))     ; Альтернатива