Opened by Gast at 2003-10-22 16:36
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
[quote=andi,22.10.2003, 16:09]danke funktioniert super!
eine erklärung währe wirklich nicht schlecht![/quote]
betterworlds Lösung taugt nur etwas für Mengen, also für Arrays, wo keine Elemente doppelt vorkommen. Und selbst da ist sein Verfahren unsymmetrisch, d.h. in meinen Augen falsch.
Im verwendeten Beispiel geht es gerade gut, weil die zweite Menge eine Teilmenge der ersten Menge ist.
Meine Lösung ist simpel: In der sub werden zwei Arrays gebildet: A ohne B und B ohne A, genannt @a1m2 und @a2m1. Dies geschieht am Beispiel von @a1m2 dadurch, dass ich erstmal alle Elemente von @$a in @a1m2 aufnehme und dann durch alle Elemente von @$2 durchgehe und jedes(!) aus @a1m2 entferne, falls ein solches vorhanden ist.
Zurückgegeben wird dann die Vereinigung der beiden Arrays.
Das Verfahren ist naturgemäß symmetrisch (die Arraydifferenz ist somit kommutativ) und wie man an den Beispielen sehen kann leistet sie genau das gewünschte.
eine erklärung währe wirklich nicht schlecht![/quote]
betterworlds Lösung taugt nur etwas für Mengen, also für Arrays, wo keine Elemente doppelt vorkommen. Und selbst da ist sein Verfahren unsymmetrisch, d.h. in meinen Augen falsch.
Im verwendeten Beispiel geht es gerade gut, weil die zweite Menge eine Teilmenge der ersten Menge ist.
Meine Lösung ist simpel: In der sub werden zwei Arrays gebildet: A ohne B und B ohne A, genannt @a1m2 und @a2m1. Dies geschieht am Beispiel von @a1m2 dadurch, dass ich erstmal alle Elemente von @$a in @a1m2 aufnehme und dann durch alle Elemente von @$2 durchgehe und jedes(!) aus @a1m2 entferne, falls ein solches vorhanden ist.
Zurückgegeben wird dann die Vereinigung der beiden Arrays.
Das Verfahren ist naturgemäß symmetrisch (die Arraydifferenz ist somit kommutativ) und wie man an den Beispielen sehen kann leistet sie genau das gewünschte.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite