mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-08-15 14:50:42 +03:00
26 lines
707 B
Plaintext
26 lines
707 B
Plaintext
---
|
|
source: tests/golden_tests.rs
|
|
input_file: tests/golden_tests/encode_pattern_match/concat_def.bend
|
|
---
|
|
Scott
|
|
(concat) = λa (a λb b λd λe λf (String/Cons d (concat e f)))
|
|
|
|
(main) = (concat (String/Cons 97 (String/Cons 98 String/Nil)) (String/Cons 99 (String/Cons 100 String/Nil)))
|
|
|
|
(String/Nil) = λa λ* a
|
|
|
|
(String/Cons) = λa λb λ* λd (d a b)
|
|
|
|
NumScott
|
|
(concat) = λa (a λb switch b { 0: λc c; _: λ* λe λf λg (String/Cons e (concat f g)); })
|
|
|
|
(main) = (concat (String/Cons 97 (String/Cons 98 String/Nil)) (String/Cons 99 (String/Cons 100 String/Nil)))
|
|
|
|
(String/Nil) = λa (a String/Nil/tag)
|
|
|
|
(String/Cons) = λa λb λc (c String/Cons/tag a b)
|
|
|
|
(String/Nil/tag) = 0
|
|
|
|
(String/Cons/tag) = 1
|