Opened by Arasiel at 2003-11-17 09:57
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Wie immer bei komplexen Problemen fängt man an, sie in handliche Happen zu teilen, bis man diese lösen kann.
Pseudocode:
Nun haben wir nette Teilstücke, die leicht in Perl umsetzbar sein sollten.
Wenn Du damit Probleme hast frag wieder nach, dann helf ich gern bei der Umsetzung.\n\n
<!--EDIT|Crian|1069065913-->
Pseudocode:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Schleife über alle Elemente aus Array 1
Ist dieses Element in beiden Arrays?
Ja: Sind diese Elemente gleich?
Ja: Ok, wir brauchen es nicht in der Ausgabe
Nein: Schreibe beide Elemente in das Array diff
Nein: Nur in Array1, ok, schreibs ins Array diff
Ende der Schleife über die Elemente aus Array1
Schleife über alle Elemente aus Array 2
Ist dieses Element in beiden Arrays?
Ja: Ok nichts zu tun, das wurde in der ersten Schleife schon
mit erfasst
Nein: Nur in Array2, ok, schreibs ins Array diff
Ende der Schleife über die Elemente aus Array2
Nun haben wir nette Teilstücke, die leicht in Perl umsetzbar sein sollten.
Wenn Du damit Probleme hast frag wieder nach, dann helf ich gern bei der Umsetzung.\n\n
<!--EDIT|Crian|1069065913-->
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