Opened by Spider-Mann at 2005-07-23 19:07
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
Wieso eigentlich (yes)(ter)(day)? stattdessen könntest du doch auch (yesterday) schreiben, insbesondere, da du das nachher eh wieder zusammenhängst.
Abgesehen davon werden in beiden Teilen keine Fehler abgefangen.
Beim zweiten Programm fällt mir auf, daß du $8 zB. nach einem weiteren Regulären Ausdruck verwendest, was dann leer ist, dh. das was im anderen Ausdruckt gematched wurde drin ist (also nichts in dem Fall), von daher würde ich für die erste Möglichkeit tendieren.
Abgesehen davon werden in beiden Teilen keine Fehler abgefangen.
Beim zweiten Programm fällt mir auf, daß du $8 zB. nach einem weiteren Regulären Ausdruck verwendest, was dann leer ist, dh. das was im anderen Ausdruckt gematched wurde drin ist (also nichts in dem Fall), von daher würde ich für die erste Möglichkeit tendieren.
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}