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; odd?
8
9; ---conformance---
10; R5RS
11
12; ---purpose---
13; Test whether a number is odd (not even).
14
15; ---args---
16; X - number
17
18; ---keywords---
19; ODD? function, odd, even, numbers, digit, predicate
20
21; ---see-also---
22; digits, even?, zero?
23
24; ---example---
25; (odd? 3) => #t
26
27(define oddp #t)
28
29(require "digits.scm")
30(require "not.scm")
31(require "reverse.scm")
32(require "memq.scm")
33; (require "evenp.scm") ; even?
34
35; ---model---
36; (define (odd? x)
37;   (not (even? x)))
38
39; ---code---
40(define (odd? x)
41  (and (memq (car (reverse (integer->list x)))
42             (integer->list 13579))
43       #t))
44