Add corecursive func test

2024-04-10 11:53:18 -04:00 · 2024-04-10 11:53:18 -04:00 · 0f9c1f4eb4
commit 0f9c1f4eb4
parent 4f514378ac
1 changed files with 14 additions and 0 deletions
--- a/test/corecursive_func.tm
+++ b/test/corecursive_func.tm
@ -0,0 +1,14 @@
+func ping(x:Int)->[Text]
+	if x > 0
+		return ["ping: {x}"] ++ pong(x-1)
+	else
+		return ["ping: {x}"]
+
+func pong(x:Int)->[Text]
+	if x > 0
+		return ["pong: {x}"] ++ ping(x-1)
+	else
+		return ["pong: {x}"]
+
+>> ping(3)
+= ["ping: 3", "pong: 2", "ping: 1", "pong: 0"]