Opened by Gast at 2004-03-02 10:00
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
Weil wir auf dem alten Perl-Board (soweit ich mich erinnere) mal ne diskussion dazu hatten und wild rumgebenchmarkt haben und festgestellt haben, daß man mit index nicht wirklich viel gewinnt.
Manchmal sucht man auch erst nach nem festen String und stellt später fest, daß man dann doch ein flexibles Suchmuster haben will. Wenn man schon n RegEx hat, gehts schnell. Wenn da ne indx-Lösung steht, dann dauerts..
Außerdem find ich RegExes intuitiver.
Manchmal sucht man auch erst nach nem festen String und stellt später fest, daß man dann doch ein flexibles Suchmuster haben will. Wenn man schon n RegEx hat, gehts schnell. Wenn da ne indx-Lösung steht, dann dauerts..
Außerdem find ich RegExes intuitiver.
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}