1; SketchyLISP Library 2; Copyright (C) 2005,2006,2007 Nils M Holm. All rights reserved. 3; See the file LICENSE of the SketchyLISP distribution 4; for conditions of use. 5 6; ---name--- 7; n>= 8 9; ---conformance--- 10; SketchyLISP Core 11 12; ---purpose--- 13; Check whether two natural numbers are in non-ascending order. 14; Return 15; .C #t, 16; if 17; .V a>=b 18; and otherwise 19; .C #f. 20; Both 21; .V a 22; and 23; .V b 24; must be natural numbers. 25 26; ---args--- 27; A - natural number 28; B - natural number 29 30; ---keywords--- 31; N>= function, not less than, greater than or equal to, 32; ordering, relation, comparison, predicate, natural 33 34; ---see-also--- 35; digits, n>, n<=, =, >= 36 37; ---example--- 38; (n>= 7 5) => #t 39 40(define ngteq #t) 41 42; ---code--- 43(define (n>= a b) 44 (eq? (n< a b) #f)) 45