Contents    Page-10    Prev    Next    Page+10    Index   

Pattern Optimization Examples


(defun t1 (C D)
  (COND ((> (* PI (EXPT (CADDR (PROG1 C)) 2))
            (* PI (EXPT (CADDR (PROG1 D)) 2)))
          (PRINT 'BIGGER))))

(LAMBDA-BLOCK T1 (C D)
  (IF (> (ABS (CADDR C)) (ABS (CADDR D)))
         (PRINT 'BIGGER)))