projects
/
svn42.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added schiffe versenken, non working
[svn42.git]
/
dart
/
dart-fullcricket.pl
diff --git
a/dart/dart-fullcricket.pl
b/dart/dart-fullcricket.pl
index
743909c
..
1823624
100755
(executable)
--- a/
dart/dart-fullcricket.pl
+++ b/
dart/dart-fullcricket.pl
@@
-6,12
+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 $sieb=1;
my @prim = qw / 2 3 5 7 11 13 17 19 /;
sub gueltig{
my ($zahl,$mult) = @_;
my @prim = qw / 2 3 5 7 11 13 17 19 /;
sub gueltig{
my ($zahl,$mult) = @_;
- return 1;
+ return $zahl>1;
};
};