Contents    Page-10    Prev    Next    Page+10    Index   

Examples ...


(defun t3 (P)
  (> (* PI (EXPT (/ (CADDR (PROG1 P)) 2) 2))
     (* (- (* PI (EXPT (/ (CADDR (PROG1 P)) 2) 2))
           (* PI (EXPT (/ (CADR (PROG1 P)) 2) 2)))
        (GET (FIFTH (PROG1 P)) 'DENSITY))))

(LAMBDA-BLOCK T3 (P)
  (> (EXPT (CADDR P) 2)
     (* (- (EXPT (CADDR P) 2) (EXPT (CADR P) 2))
        (GET (FIFTH P) 'DENSITY))))


(defun t4 ()
  (cond ((> 1 3) 'amazing)
        ((< (sqrt 7.2) 2) 'incredible)
        ((= (+ 2 2) 4) 'okay)
        (t 'jeez)))

(LAMBDA-BLOCK T4 () 'OKAY)