SketchyLISP Reference |
Copyright (C) 2007 Nils M Holm |
<<[eqvp] | [Index] | [exists]>> |
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?.
<<[eqvp] | [Index] | [exists]>> |