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

=

Conformance: R5RS Scheme

Purpose: Check whether all numbers in a sequence are equal.

Arguments:
A - number
B... - numbers

Implementation:

(define =
  (predicate-iterator 
    (lambda (a b)
      (equal? (integer->list (normalize a))
              (integer->list (normalize b))))))

Example:

(= 123 123 123) 
=> #t

See also:
<, >, <=, >=, equal?, not.