componetns
[minfp.git] / tests / preamble.mfp
index e219460..5fd27a7 100644 (file)
@@ -14,4 +14,8 @@ if = code if;
 
 fac i = if (i == 0) 1 $ i * fac (i - 1);
 id x = x;
-start = fac 10;
+
+even i = if (i == 0) True (odd (i - 1));
+odd i = if (i == 0) False (even (i - 1));
+
+start = odd 5;