SketchyLISP Reference |
Copyright (C) 2006 Nils M Holm |
<<[=] | [Index] | [>=]>> |
Conformance: R5RS
Purpose:
Check whether two or more numbers are in descending
order. Return
#t,
if
a>b>...
and otherwise
#f.
Arguments:
A - number
B... - numbers
Implementation:
(define (> a . b) (letrec ((gt (lambda (a b) (cond ((eq? a #t) #t) ((< b a) b) (#t #t))))) (cond ((null? b) (bottom '(too few arguments to >))) (#t (neq? (reduce gt (cons a b) #f) #t)))))
Example:
(> 7 5 3) => #t
See also:
digits,
<,
<=,
>=,
n>.
<<[=] | [Index] | [>=]>> |