Cleanup.

1 files changed, 0 insertions, 67 deletions

diff --git a/khb/test.khb b/khb/test.khb
deleted file mode 100644
index f109016..0000000
--- a/khb/test.khb
+++ /dev/null
@@ -1,67 +0,0 @@
-$$ integers (n, nmax, qo) =
-    (n > nmax ?
-        (-1) >> qo
-    :
-        n >> qo;
-        become integers(n+1, nmax, qo)
-    )
-
-# Version alternative :
-$$ integers (n, nmax, qo) =
-    ]->[ (
-        (n > nmax ? ->[]);
-        n >> qo;
-        n = n + 1
-    );
-    -1 >> qo
-
-$$ filter (n, qi, qo) =
-    val << qi;
-    (val != -1 ?
-        (val % n != 0 ?
-            val >> qo
-        );
-        become filter(n, qi, qo)
-    :
-        -1 >> qo
-    )
-
-# Version alternative :
-$$ filter (n, qi, qo) =
-    ]->[ (
-        val << qi;
-        (val == -1 ? ->[]);
-        (val % n != 0 ? val >> qo)
-    );
-    -1 >> qo
-
-$$ primes (qi) =
-    val << qi; 
-    (val != -1 ?
-        val >> stdout;
-        c = <>;
-        | become filter(val, qi, c.out) |;
-        become primes(c.in)
-    )
-
-# Version alternative :
-$$ primes (qi) =
-    ]->[ (
-        val << qi;
-        (val == -1 ? ->[]);
-        val >> stdout;
-        c = <>;
-        | filter(val, qi, c.out) |;
-        qi = c.in
-    )
-
-$$ main () =
-    c = <>;
-    | integers (2, 5000, c.out) |;
-    primes (c.in)
-
-
-    
-
-
-