t3x.org / sketchy / library / gteq.html
SketchyLISP
Reference
  Copyright (C) 2007
Nils M Holm

>=

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>=.