Changeset 338 for trunk/thune/scripts/nsieve.t

Timestamp:

01/06/07 03:26:50 (2 years ago)

Author:

krobillard

Message:

Thune - Tweaked scripts/nsieve.t

Files:

• trunk/thune/scripts/nsieve.t (modified) (4 diffs)

trunk/thune/scripts/nsieve.t

@@ -4 +4 @@
   http://shootout.alioth.debian.org/
  
-  C       0.610 sec.
-  Python  5.392 sec.
+  C       0.610 sec.  5 MB
+  Python  5.392 sec.  > 40MB
 */
 
@@ -35 +35 @@
 */
 
-; 6.254 sec.
-[size | count i j flags]
+; 6.287 sec.  5 MB
+[size | count i j]
 [
-    #{} copy size 1 fill :flags
     0 :count
-
-    flags 2 skip
+    #{} copy size 1 fill 2 skip
     [
         :i
@@ -50 +48 @@
             [
                 0 1 poke drop
-                j skip
+                j skip  ; May break in the future
             ]
             iter
@@ -57 +55 @@
     iter
 
-    ;count
+    none :i recycle
     ["Primes up to" size count] print
 ]
-func :nsieve    ; (size -- count)
+func :nsieve    ; (size -- )
 
 int! args/1 make :n