mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-09-11 11:56:54 +03:00
14 lines
396 B
Plaintext
14 lines
396 B
Plaintext
---
|
|
source: tests/golden_tests.rs
|
|
input_file: tests/golden_tests/encode_pattern_match/def_tups.bend
|
|
---
|
|
Scott
|
|
(go) = λa let (b, c) = a; let (d, e) = c; let (f, g) = e; let (h, i) = g; (+ (+ (+ (+ i h) f) d) b)
|
|
|
|
(main) = (go (1, (2, (3, (4, 5)))))
|
|
|
|
NumScott
|
|
(go) = λa let (b, c) = a; let (d, e) = c; let (f, g) = e; let (h, i) = g; (+ (+ (+ (+ i h) f) d) b)
|
|
|
|
(main) = (go (1, (2, (3, (4, 5)))))
|