adding automaton

2022-12-13 11:45:40 +01:00
parent c4ad75e4cb
commit e9d586dfe7
5 changed files with 67 additions and 1 deletions
--- a/src/test.node
+++ b/src/test.node
@@ -10,3 +10,10 @@ let
 	(l1, l2) = diagonal_int(i);
 	o = (not (not (l1 = l2))) and (l1 = l2) and true;
 tel
+
+node automaton () returns (o : bool);
+let
+	automaton
+	| Incr -> do o = (pre o) + 1 done
+	| Decr -> do o = (pre o) - 1 done
+tel