summaryrefslogtreecommitdiff
path: root/test.toc
diff options
context:
space:
mode:
Diffstat (limited to 'test.toc')
-rw-r--r--test.toc28
1 files changed, 3 insertions, 25 deletions
diff --git a/test.toc b/test.toc
index 8372265..d27fae6 100644
--- a/test.toc
+++ b/test.toc
@@ -1,28 +1,6 @@
-#include "std/io.toc", io;
-
-prime_sieve ::= fn(N::=10000) sieve: [N]bool {
- for x, i := &sieve {
- *x = i%2 != 0;
- }
- sieve[1] = false;
- sieve[2] = true;
- i := 3;
- while i*i <= N {
- defer i += 2;
- if !sieve[i] { continue; }
- j := 2*i;
- while j < N {
- sieve[j] = false;
- j += i;
- }
- }
-}
+#include "std/mem.toc";
main ::= fn() {
- sieve := prime_sieve();
- for x, i := sieve {
- if x {
- io.puti(i);
- }
- }
+ thing := new(int);
+ del(thing);
}