SketchyLISP Reference |
Copyright (C) 2007 Nils M Holm |
<<[<] | [Index] | [=]>> |
Conformance: R5RS Scheme
Purpose:
Check whether a seqeunce of numbers is in strict
non-descending order.
Return
#t,
if
a<=b<=...
and otherwise
#f.
Arguments:
A - number
B... - numbers
Implementation:
(define (<= a . b) (letrec ((lteq (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 lteq a b) #t)))))
Example:
(<= 9 9 10) => #t
See also:
digits,
<,
>,
>=,
n<=.
<<[<] | [Index] | [=]>> |