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