Opened by Gast at 2007-06-26 15:34
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
wenn die Kundennummer grundsätzlich kürzer ist, als die plz, dann kannst du ja sagen, daß alle 5-Stelligen Ziffen Postleitzahlen sind, damit bist du schonmal weiter. Ansonsten kannst du dir sicher irgendwo ne Liste mit Posleitzahl, Ort zulegen und daran die plz festmachen.
Und wenn du soweit bist, kannst du versuchen eine Liste aller gültigen Nachnamen runterzuladen (notfalls selbst erstellen aus den vorhandenen Wörtern) und damit Vornamen und Nachnamen unterscheiden. Aber wie du das ganze Problem automatisiert lösen kannst, weiß ich leider auch nicht.
Und wenn du soweit bist, kannst du versuchen eine Liste aller gültigen Nachnamen runterzuladen (notfalls selbst erstellen aus den vorhandenen Wörtern) und damit Vornamen und Nachnamen unterscheiden. Aber wie du das ganze Problem automatisiert lösen kannst, weiß ich leider auch nicht.
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}