Vergleichsoperatoren

Aus ProgrammingWiki

Um strukturierte numerische bzw. nichtnumerische Daten vergleichen zu können, bietet Scheme Vergleichsoperatoren (Prädikate) mit verschiedenen Wichtungen an:

equal? / eqv? / eq?

Gleich, gleicher, am gleichesten

Mit den folgenden Prozeduren testen wir diese Vergleichsoperatoren:

(define vergleich (lambda (ls) (display "Nr." (string #\tab) "equal?" (string #\tab) "eqv?" (string #\tab) "eq?") (tabausgabe ls 1))) (define tabausgabe (lambda (ls n) (if (null? ls) 'ok (begin (display n (string #\tab) (equal? (eval (caar ls)) (eval (cdar ls))) (string #\tab) (eqv? (eval (caar ls)) (eval (cdar ls))) (string #\tab) (eq? (eval (caar ls)) (eval (cdar ls)))) (tabausgabe (cdr ls) (+ n 1))))))

(vergleich '(('3 . '3) ('4.0 . '4) ((* 3 3) . '9) ((/ 3 2) . (+ 1 (/ 1 2))) ((/ 2 3) . (/ 4 6)) ((* (sqrt 2) (sqrt 2)) . '2.0) ('#\a . '#\a) ('#t . '#t) ('"B" . '"B") ('informatik . 'INFORMATIK) (((lambda (x) (* x x)) (sqrt 2)) . (* (sqrt 2) (sqrt 2))) ((cons 1 (list 2)) . (list 1 2)) ('(1 2 a b c d 3 4) . '(1 2 a b c d 3 4)) ('(1 2 (a (b (c)) d) 3 4) . '(1 2 (a (b (c)) d) 3 4))))

ausführen

Zusammenfassung

Die Vergleichsoperatoren geben den Wert #t zurück, wenn ...

equal? "gleich"	... die Operanden in Datentyp, Struktur und Inhalt gleich sind,
eqv? "gleicher"	... die Operanden in Datentyp und Wert gleich sind,
eq? "am gleichesten"	... die Operanden auf den selben Platz im Arbeitsspeicher verweisen.

Zurück zu Rekursionen / numerischen Listen bzw. Mehrfachrekursionen.