SketchyLISP Reference |
Copyright (C) 2007 Nils M Holm |
<<[>] | [Index] | [abs]>> |
Conformance: R5RS Scheme
Purpose:
Check whether a seqeunce of numbers is in strict
non-ascending order.
Return
#t,
if
a>=b>=...
and otherwise
#f.
Arguments:
A - number
B... - numbers
Implementation:
(define (>= a . b) (letrec ((gteq (lambda (a b) (cond ((eq? a #t) #t) ((< a b) #t) (else b))))) (cond ((null? b) (bottom '(too few arguments to >=))) (else (neq? (fold-left gteq a b) #t)))))
Example:
(>= 4 4 3) => #t
See also:
digits,
<,
>,
<=,
n>=.
<<[>] | [Index] | [abs]>> |