mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-10-26 14:05:36 +03:00
22 lines
453 B
Plaintext
22 lines
453 B
Plaintext
---
|
|
source: tests/golden_tests.rs
|
|
input_file: tests/golden_tests/encode_pattern_match/non_matching_fst_arg.bend
|
|
---
|
|
Scott
|
|
(Foo) = λa λb (b λc let {c c_2} = c; (Foo c c_2) λd d a)
|
|
|
|
(bool/true) = λa λ* a
|
|
|
|
(bool/false) = λ* λb b
|
|
|
|
NumScott
|
|
(Foo) = λa λb (b λc switch c { 0: λd let {d d_2} = d; (Foo d d_2); _: λ* λe e; } a)
|
|
|
|
(bool/true) = λa (a bool/true/tag)
|
|
|
|
(bool/false) = λa (a bool/false/tag)
|
|
|
|
(bool/true/tag) = 0
|
|
|
|
(bool/false/tag) = 1
|