Advertisement
Guest User

Untitled

a guest
Mar 20th, 2018
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. (define (opere op x y) (cond
  2. ((null? op) op)
  3. ((estValide? (eval (car op)) x y) (cons ((eval (car op)) x y) (opere (cdr op) x y)))
  4. ((estValide? (eval (car op)) y x) (cons ((eval (car op)) y x) (opere (cdr op) y x)))
  5. (else (opere (cdr op) y x))
  6. )
  7. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement