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

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