MAJOR MIlESTONE: FACTORIAL PROGRAM FROM SRC TO EXECUTION

src/Core/Examples.hs

@@ -20,6 +20,56 @@ letrecExample = [coreProg|
         in fst (snd (snd (snd a)));
 
     main = f 3 4;
-
+|]
+
+idExample :: Program
+idExample = [coreProg|
+    main = id 3;
+|]
+
+indExample1 = [coreProg|
+    main = twice twice id 3;
+|]
+
+indExample2 = [coreProg|
+    main = twice twice twice id 3;
+|]
+
+indExample3 = [coreProg|
+    main = letrec x = 2
+                  y = f x x
+           in g y y;
+
+    f a b = b;
+    g a b = a;
+|]
+
+negExample1 = [coreProg|
+    main = negate# (id 3);
+|]
+
+negExample2 = [coreProg|
+    main = negate# 3;
+|]
+
+negExample3 = [coreProg|
+    main = twice negate# 3;
+|]
+
+arithExample1 = [coreProg|
+    main = (+#) 3 (negate# 2);
+|]
+
+arithExample2 = [coreProg|
+    main = negate# ((+#) 2 ((*#) 5 3));
+|]
+
+ifExample = [coreProg|
+    main = if# True 2 3;
+|]
+
+facExample = [coreProg|
+    fac n = if# ((==#) n 0) 1 ((*#) n (fac ((-#) n 1)))
+    main = fac 3;
 |]
 

src/Core/Lex.x

@@ -37,7 +37,7 @@ $graphic   = [$small $large $symbol $digit $special \:\"\']
 
 $octit     = 0-7
 $hexit     = [0-9 A-F a-f]
-$namechar  = [$alpha $digit \']
+$namechar  = [$alpha $digit \' \#]
 $symchar   = [$symbol \:]
 $nl        = [\n\r]
 $white_no_nl = $white # $nl