t3x.org / sketchy / library / evenp.html
SketchyLISP
Reference
  Copyright (C) 2006
Nils M Holm

even?

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?.