Subversion Repositories programming

Rev

Rev 100 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 100 Rev 108
Line 1... Line 1...
1 
;Written by: Ira Snyder
 1 
;Written by: Ira Snyder
2 
;Date:       01-13-2005
 2 
;Date:       01-13-2005
3 
;Project #:  Hw 02
 3 
;Project #:  Hw 02
- 
 
 4 
;License: Public Domain
4 
 
 5 
 
5 
;define a function to calculate the result of the infix expression
 6 
;define a function to calculate the result of the infix expression
6 
; -b + sqrt( -b^2 - 4*a*c )
 7 
; -b + sqrt( -b^2 - 4*a*c )
7 
 
 8 
 
8 
(defun QUAD-MINUS (A B C)
 9 
(defun QUAD-MINUS (A B C)