라켓 : 나는이 기능은 가능한 한 산술 식을 단순화 안됩니다</p> <pre><code>; (simplify expr) ; ; where expr is one of the following ; - a number ; - a symbol ; - a list of the form '(a operator b) where a and b are arithmetic expressions </code></pre> <p>기능을 구현하기 위해 노력하고 변수

Question

와 단순화 산술 식, 방금 변수없이 표현식을 단순화하기 위해 필요 :

예 :

,174 :

(simplify '(3 + a))     => '(3 + a) 
(simplify '(((2 + (3 * 4)) * a) + 2) => '((14 * a) + 2) 
(simplify '((2 + (3 - a)) * 2)  => '((2 + (3 - a)) * 2) 

는 이미 연산 식을 계산하는 기능을 구현

(define (eval t) 
    (cond 
    [(number? t) t] 
    [else ((cond 
      [(equal? (second t) '+) +] 
      [(equal? (second t) '-) -] 
      [(equal? (second t) '*) *] 
      [(equal? (second t) '/) /]) 
      (eval (first t)) (eval (third t)))])) 

이것은 내가 지금까지 가지고있는 것입니다. 그러나 그것이 제대로 작동하지 않는다는 사실 외에도 훨씬 좋은 방법이 있다고 생각합니다.

(define (simplify t) 
    (cond 
    [(number? t) t] 
    [(equal? 'a (first t)) `(,(first t) ,(second t) ,(simplify (third t))) ] 
    [(equal? 'a (third t)) `(,(simplify (first t)) ,(second t) ,(third t)) ] 
    [else ((cond 
      [(equal? (second t) '+) +] 
      [(equal? (second t) '-) -] 
      [(equal? (second t) '*) *] 
      [(equal? (second t) '/) /]) 
      (simplify (first t)) (simplify (third t)))])) 

어떤 도움을 주시면 감사하겠습니다!

Answer 1

중요한 통찰력

(number operation number) 

가 그럼 결과를 찾기 위해 eval 기능을 사용 패턴 (number operation number)를 확인 단순화에 절을 추가

the result of evaluating (number operation number) 

로 단순화 할 수 있다는 것입니다.