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