Bend/tests/snapshots/encode_pattern_match__ntup_sum.bend.snap

14 lines
326 B
Plaintext
Raw Permalink Normal View History

2024-01-16 16:44:01 +03:00
---
source: tests/golden_tests.rs
input_file: tests/golden_tests/encode_pattern_match/ntup_sum.bend
2024-01-16 16:44:01 +03:00
---
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))