← Архив: Scheme

Помогите найти ошибку

Author: · 17.11.2014 21:04
· original author: SimpleGirl
Только начала изучать Ским.
Подскажите пожалуйста где ошибка: я пишу функцию которая берет предложение и ищет в нем знак "=" если найдет то предожение до знака равно это будет Термин а после знака равно это Определение, я написала функцию а компилятор ругается говорит что плохой синтаксис вот тут:(let((i 1)(j length expr)))(let((k length expr)(expr2 expr)))


(define termAndDefinition
  (lambda (expr)
   (let((i 1)(j length expr))) 
    (let((k length expr)(expr2 expr)))
      (if(equal? "=" (substring expr (- k i) j))
       (let(term substring expr 0 (- k 1))
         (definition substring expr2 (+ k 1)))            (termAndDefinition (substring expr 0 k)))))