aboutsummaryrefslogtreecommitdiff
path: root/test/corecursive_func.tm
blob: 8faf8b0daa034d103b182bd13867406345f7bc49 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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"]

func main()
	>> ping(3)
	= ["ping: 3", "pong: 2", "ping: 1", "pong: 0"]