(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)))

Contents    Page-10    Prev    Next    Page+10    Index