Opened by janek at 2004-02-12 20:14
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
[quote=KKO,12.02.2004, 21:22]öhm......... ich möchte keine grundsatzdebatte ( ich nutze auch module )
bevor ich mich aber durch die SYNOPSIS wühle, um etwas einer text-datei rauszuholen, mache ich es lieber so :-))
janek wollte eine insperation, was auf einen kreativen selfmade schließen läßt[/quote]
Eine Inspration zu wollen kann auch heißen, daß man nicht weiß, daß es schon Module für soetwas gibt. (Ich hab mir am Anfang auch lieber alles selbst geschrieben, im Lauf der Zeit aber festgestellt, daß es geschickter ist Module zu verwenden)
bevor ich mich aber durch die SYNOPSIS wühle, um etwas einer text-datei rauszuholen, mache ich es lieber so :-))
janek wollte eine insperation, was auf einen kreativen selfmade schließen läßt[/quote]
Eine Inspration zu wollen kann auch heißen, daß man nicht weiß, daß es schon Module für soetwas gibt. (Ich hab mir am Anfang auch lieber alles selbst geschrieben, im Lauf der Zeit aber festgestellt, daß es geschickter ist Module zu verwenden)
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}