[Gd-chatter] r11055 - trunk/examples/sieve-mark

[bruce at gwydiondylan.org]

Author: bruce
Date: Mon Dec 11 20:44:57 2006
New Revision: 11055

Modified:
   trunk/examples/sieve-mark/sieve-perl.pl
Log:
Job: minor
FIxed Erik's perl test

Modified: trunk/examples/sieve-mark/sieve-perl.pl
==============================================================================
--- trunk/examples/sieve-mark/sieve-perl.pl	(original)
+++ trunk/examples/sieve-mark/sieve-perl.pl	Mon Dec 11 20:44:57 2006
@@ -2,18 +2,18 @@
 
 use strict;
 
-#my $limit = 5000000;
-my $limit = 500000;
-my @vec = 1..($limit-1);
+my $limit = 5000000;
+#my $limit = 500000;
+my @vec = 0..($limit-1);
 
 $vec[0] = 0;
+$vec[1] = 0;
 my $prime_count = 0;
 
-for (my $i = 0; $i < $limit; $i++) {
+for (my $i = 2; $i < $limit; $i++) {
     if ($vec[$i] != 0) {
 	$prime_count++;
-	my $prime = $i + 1;
-	for (my $j = 0; $j < $limit; $j += $prime) {
+	for (my $j = 2*$i; $j < $limit; $j += $i) {
 	    $vec[$j] = 0;
 	}
     }