2024-03-12 16:10:43 +03:00
|
|
|
---
|
|
|
|
source: tests/golden_tests.rs
|
2024-05-15 01:25:46 +03:00
|
|
|
input_file: tests/golden_tests/mutual_recursion/len.bend
|
2024-03-12 16:10:43 +03:00
|
|
|
---
|
2024-05-18 15:01:20 +03:00
|
|
|
@Len = ((@Len__C1 a) a)
|
2024-03-21 15:11:16 +03:00
|
|
|
|
2024-05-18 15:01:20 +03:00
|
|
|
@Len__C0 = (* (* (a c)))
|
2024-06-15 17:07:51 +03:00
|
|
|
& $(b c) ~ [+0x0000001]
|
2024-05-10 19:22:05 +03:00
|
|
|
& @Len ~ (a b)
|
2024-03-21 15:11:16 +03:00
|
|
|
|
2024-05-18 15:01:20 +03:00
|
|
|
@Len__C1 = (?((0 @Len__C0) a) a)
|
2024-03-21 15:11:16 +03:00
|
|
|
|
2024-05-27 21:09:23 +03:00
|
|
|
@List/Cons = (a (b ((@List/Cons/tag (a (b c))) c)))
|
2024-05-18 15:01:20 +03:00
|
|
|
|
2024-05-27 21:09:23 +03:00
|
|
|
@List/Cons/tag = 1
|
|
|
|
|
|
|
|
@List/Nil = ((@List/Nil/tag a) a)
|
|
|
|
|
|
|
|
@List/Nil/tag = 0
|
2024-03-21 15:11:16 +03:00
|
|
|
|
2024-04-18 18:42:28 +03:00
|
|
|
@main = g
|
|
|
|
& @Len ~ (f g)
|
2024-05-15 21:23:26 +03:00
|
|
|
& @List/Cons ~ (* (e f))
|
|
|
|
& @List/Cons ~ (* (d e))
|
|
|
|
& @List/Cons ~ (* (c d))
|
|
|
|
& @List/Cons ~ (* (b c))
|
|
|
|
& @List/Cons ~ (* (a b))
|
|
|
|
& @List/Cons ~ (* (@List/Nil a))
|