mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-08-15 14:50:42 +03:00
16 lines
275 B
Plaintext
16 lines
275 B
Plaintext
---
|
|
source: tests/golden_tests.rs
|
|
input_file: tests/golden_tests/encode_pattern_match/box.bend
|
|
---
|
|
Scott
|
|
(unbox) = λa (a λb b)
|
|
|
|
(box/new) = λa λb (b a)
|
|
|
|
NumScott
|
|
(unbox) = λa (a λb switch b { 0: λc c; _: *; })
|
|
|
|
(box/new) = λa λb (b box/new/tag a)
|
|
|
|
(box/new/tag) = 0
|