projects
/
svn42.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a1473cd
)
added zahlensieb
author
realraum
<realraum@realraum.at>
Sat, 2 Jul 2011 21:52:28 +0000
(21:52 +0000)
committer
realraum
<realraum@realraum.at>
Sat, 2 Jul 2011 21:52:28 +0000
(21:52 +0000)
dart/dart-fullcricket.pl
patch
|
blob
|
history
diff --git
a/dart/dart-fullcricket.pl
b/dart/dart-fullcricket.pl
index
92c6721
..
743909c
100755
(executable)
--- a/
dart/dart-fullcricket.pl
+++ b/
dart/dart-fullcricket.pl
@@
-6,10
+6,12
@@
use strict;
#my $termios = new POSIX::Termios;
#$termios->getattr;
#my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );
#my $termios = new POSIX::Termios;
#$termios->getattr;
#my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );
+my $sieb=0;
+my @prim = qw / 2 3 5 7 11 13 17 19 /;
sub gueltig{
my ($zahl,$mult) = @_;
sub gueltig{
my ($zahl,$mult) = @_;
- return $zahl<6 || $zahl>20;
+ return 1;
};
};
@@
-45,6
+47,17
@@
while ( my $schuss = <STDIN>)
{
$score{$current_player}{$zahl}++;
$self_scored++;
{
$score{$current_player}{$zahl}++;
$self_scored++;
+ if ($sieb && ($score{$current_player}{$zahl} == 3))
+ {
+ for my $count (2..21)
+ {
+ $count = 25 if $count ==21;
+ if ( ($count % $zahl) == 0)
+ {
+ $score{$current_player}{$count} = 3;
+ }
+ }
+ }
} else {
$scho++;
for my $playernum (1..$numplayer)
} else {
$scho++;
for my $playernum (1..$numplayer)
@@
-89,8
+102,8
@@
sub print_score
{
for my $playernum (1..$numplayer)
{
{
for my $playernum (1..$numplayer)
{
- next if not gueltig($i);
my $zahl = $i>20?25:$i;
my $zahl = $i>20?25:$i;
+ next if not gueltig($zahl);
printf STDERR ("%2d %s ",$zahl, '#' x $score{$playernum}{$zahl}. '-' x (3-$score{$playernum}{$zahl}));
}
print STDERR "\n";
printf STDERR ("%2d %s ",$zahl, '#' x $score{$playernum}{$zahl}. '-' x (3-$score{$playernum}{$zahl}));
}
print STDERR "\n";