Advertisement
Guest User

Untitled

a guest
Nov 27th, 2014
153
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.59 KB | None | 0 0
  1. ;;Ukol 17
  2.  
  3. (defclass d-expr (binary-expression)
  4.   ())
  5.  
  6. (defmethod bin-expr-symbol ((expr d-expr))
  7.   'd)
  8.  
  9. (defmethod simplify ((expr d-expr))
  10.   (call-next-method (deriv (expr-1 expr) (expr-2 expr))))
  11.  
  12. (defvar *d-expr-class* 'd-expr)
  13.  
  14. (defun make-binary-expr (name expr-1 expr-2)  
  15.   (make-instance (case name
  16.                    (+ *+-expr-class*)
  17.                    (- *--expr-class*)
  18.                    (* **-expr-class*)
  19.                    (/ */-expr-class*)
  20.                    (d *d-expr-class*))
  21.                  :expr-1 (parse expr-1)
  22.                  :expr-2 (parse expr-2)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement