examples

examples/Core/constDivZero.cr

@@ -0,0 +1,3 @@
+k x y = x;
+main = k 3 ((/#) 1 0);
+

examples/Core/factorial.cr

@@ -0,0 +1,7 @@
+fac n = case (==#) n 0 of
+    { <1> -> 1
+    ; <0> -> (*#) n (fac ((-#) n 1))
+    };
+
+main = fac 3;
+