schemeで等価述語の例

gistfile1.scm

(equal? (list 1 2 3) (list 1 2 3))  ; => #t
((lambda (p) (eq? p p)) (cons 1 2)) ; => #t
(eq? 'example 'example)             ; => #t
(eqv? 1 1)                          ; => #t
(eqv? 1 1.0)                        ; => #f
(= 1 1.0)                           ; => #t
(char=? #\a #\a)                    ; => #t
(string=? "example" "example")      ; => #t
(char-ci=? #\a #\A)                 ; => #t
(string-ci=? "example" "EXAMPLE")   ; => #t
(not #f)                            ; => #t