Opened by Ishka at 2003-08-04 15:08
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
Hi,
strat und ich üerlegen gerade, ob lieber Die Webprogrammierung oder Scripte und Anwendungen in Perl ganz oben stehen sollte.
Scripte und Anwendungen in Perl: Weil das wohl das Hauptgebiet von Perl ist
Webprogrammierung: Weil Nebys sonts ihre ganzen CGI-Fragen (Perl wird ja gerne mit CGI verwechselt) in Allgemeines zu Perl posten.
Wie seht ihr das?
strat und ich üerlegen gerade, ob lieber Die Webprogrammierung oder Scripte und Anwendungen in Perl ganz oben stehen sollte.
Scripte und Anwendungen in Perl: Weil das wohl das Hauptgebiet von Perl ist
Webprogrammierung: Weil Nebys sonts ihre ganzen CGI-Fragen (Perl wird ja gerne mit CGI verwechselt) in Allgemeines zu Perl posten.
Wie seht ihr das?
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}