mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-08-15 14:50:42 +03:00
29 lines
547 B
Plaintext
29 lines
547 B
Plaintext
---
|
|
source: tests/golden_tests.rs
|
|
input_file: tests/golden_tests/mutual_recursion/len.bend
|
|
---
|
|
@Len = ((@Len__C1 a) a)
|
|
|
|
@Len__C0 = (* (* (a c)))
|
|
& $(b c) ~ [+0x0000001]
|
|
& @Len ~ (a b)
|
|
|
|
@Len__C1 = (?((0 @Len__C0) a) a)
|
|
|
|
@List/Cons = (a (b ((@List/Cons/tag (a (b c))) c)))
|
|
|
|
@List/Cons/tag = 1
|
|
|
|
@List/Nil = ((@List/Nil/tag a) a)
|
|
|
|
@List/Nil/tag = 0
|
|
|
|
@main = g
|
|
& @Len ~ (f g)
|
|
& @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))
|