mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-09-19 07:37:56 +03:00
20 lines
378 B
Plaintext
20 lines
378 B
Plaintext
---
|
|
source: tests/golden_tests.rs
|
|
input_file: tests/golden_tests/encode_pattern_match/match_adt_unscoped_lambda.hvm
|
|
---
|
|
TaggedScott:
|
|
(main) = (#Maybe ((Some 1) λ$x * #Maybe.Some.val λc c) $x)
|
|
|
|
(Some) = λa #Maybe λ* #Maybe λc #Maybe.Some.val (c a)
|
|
|
|
(None) = #Maybe λa #Maybe λ* a
|
|
|
|
Scott:
|
|
(main) = (Some 1 λ$x * λc c $x)
|
|
|
|
(Some) = λa λ* λc (c a)
|
|
|
|
(None) = λa λ* a
|
|
|
|
|