SketchyLISP Reference |
Copyright (C) 2006 Nils M Holm |
<<[equal?] | [Index] | [expt]>> |
Conformance: R5RS
Purpose: Test a number n for being even (n modulo 2 = 0).
Arguments:
X - number
Model:
(define (even? x) (zero? (remainder x 2)))
Implementation:
(define (even? x) (neq? (memq (car (reverse (integer->list x))) (integer->list 02468)) #f))
Example:
(even? 2) => #t
See also:
digits,
odd?,
zero?.
<<[equal?] | [Index] | [expt]>> |