even?

Conformance: R5RS Scheme

Purpose: Test whether a number is even.

Arguments:
X - number

Model:

(define (even? x)
  (zero? (remainder x 2)))

Implementation:

(define (even? x)
  (and (memq (car (reverse (integer->list x)))
             (integer->list 02468))
       #t))

Example:

(even? 2) 
=> #t

See also:
digits, odd?, zero?.