test/benchmark: add two tiny benchmark test

ack and 1m coroutine test
both fail to run

src/types.c

@@ -184,7 +184,7 @@ stringGCFunc(struct GC *gc, void* f) {
 struct trieNode gRoot = {};
 
 Obj
-makeSymbol(char *s) {
+makeSymbol(const char *s) {
   char *old = s;
   struct trieNode* p = &gRoot;
   for(; *s; s++) {

src/types.h

@@ -65,7 +65,7 @@ scmHead *getScmHead(Obj);
 void* mustCObj(Obj o);
 
 #define intern(x) makeSymbol(x)
-Obj makeSymbol(char *s);
+Obj makeSymbol(const char *s);
 Obj symbolGet(Obj sym);
 char* symbolStr(Obj sym);
 

test/benchmark/ack.cora

@@ -0,0 +1,7 @@
+(func ack
+		0 y => (+ 1 y)
+		x 0 => (ack (- x 1) 1)
+		x y => (ack (- x 1) (ack x (- y 1))))
+
+(let n 13
+		(ack 3 n))

test/benchmark/coroutine1m.cora

@@ -0,0 +1,38 @@
+;; create 1M coroutines and check:
+;;    1. how much memory it uses
+;;    2. how long it takes
+
+(@import "cora/lib/let-loop")
+(@import "cora/lib/cml" cml)
+(@import "cora/lib/io" io)
+(@import "cora/lib/chan" chan)
+
+(let ch (chan.make)
+ N 1000000
+ (begin
+
+  (defun create ()
+   (let-loop recur (i 0)
+	(if (> i N)
+	 (io.display "spawn finish\n")
+	 (begin
+	  (cml.spawn (lambda ()
+				  (let v (cml.perform (chan.recv ch))
+				   (begin
+					(io.display "receive value")
+					(io.display v)
+					(io.display "\n")))))	
+	  (recur (+ i 1))))))
+
+  (defun boot ()
+   (let-loop recur1 (i 0)
+	(if (> i N)
+	 (io.display "test finish\n")
+	 (begin
+	  (cml.perform (chan.send ch i))
+	  (recur1 (+ i 1))))))))
+
+(create)
+(io.display "here???\n")
+(cml.spawn boot)
+(cml.main)