Text only | Text with Images

newLISP Fan Club

Forum => Anything else we might add? => Topic started by: Jeremy Dunn on February 25, 2008, 07:18:38 PM

Title: Another handy dandy conditional
Post by: Jeremy Dunn on February 25, 2008, 07:18:38 PM
Here is a conditional form that I find very useful


Code Select

(define (<=> x y body1 body2 body3)
  (if (list? x)(setq x (length x)))
  (if (list? y)(setq y (length y)))
  (eval (if (< x y) body1
            (= x y) body2
            body3
        )))

This is a conditional with three bodies. X and Y can either be a list or a number. If X or Y is a list then the length of the list is used for comparison. The conditional looks at the two numbers X and Y. If X<Y body1 is executed elseif X=Y body2 is executed else body3 is executed. This happens a lot and I wish I would have thought of this a long time ago.
Title: Re: Another handy dandy conditional
Post by: Cyril on February 26, 2008, 01:34:38 PM
Quote from: "Jeremy Dunn"This is a conditional with three bodies.


It is only me who remembers FORTRAN 66 and arithmetic IF? ;-)
Text only | Text with Images