From d1341efad092388222b5ee21d8183410f62bbf20 Mon Sep 17 00:00:00 2001
From: Christoph Fuerst <ch.fuerst@gmx.at>
Date: Fri, 14 Apr 2017 18:36:05 +0200
Subject: [PATCH] optimized algorithm

---
 sieveEratosthenes.txt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sieveEratosthenes.txt b/sieveEratosthenes.txt
index 4790088..0ae53d4 100644
--- a/sieveEratosthenes.txt
+++ b/sieveEratosthenes.txt
@@ -40,10 +40,9 @@ proc SieveOfErathostenes(m:nat): Array[MAX,Bool]
    {
 	  if ret[i] = true then
 	  {
-             j = i^2;
 	     for k=0;i^2+k*i<MAX;k=k+1 do
 	     {
-                j=i^2+k*i;
+            j=i^2+k*i;
 	        ret[j] = false;
 	     }
 	  }
@@ -82,3 +81,4 @@ proc SieveOfErathostenesSet(m:ℕ[MAX]): Set[ℕ[MAX]]
    return ret;
 }
 
+
-- 
2.1.4