mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-08-15 14:50:42 +03:00
14 lines
326 B
Plaintext
14 lines
326 B
Plaintext
---
|
|
source: tests/golden_tests.rs
|
|
input_file: tests/golden_tests/encode_pattern_match/ntup_sum.bend
|
|
---
|
|
Scott
|
|
(ntupSum) = λa let (b, c, d, e, f) = a; (+ b (+ c (+ d (+ e f))))
|
|
|
|
(main) = (ntupSum (1, 3, 3, 2, 1))
|
|
|
|
NumScott
|
|
(ntupSum) = λa let (b, c, d, e, f) = a; (+ b (+ c (+ d (+ e f))))
|
|
|
|
(main) = (ntupSum (1, 3, 3, 2, 1))
|