diff --git a/examples/acceptance_tests/007/aiken.toml b/examples/acceptance_tests/007/aiken.toml new file mode 100644 index 00000000..a3ee5646 --- /dev/null +++ b/examples/acceptance_tests/007/aiken.toml @@ -0,0 +1,2 @@ +name = "acceptance_test_007" +version = "0.0.0" diff --git a/examples/acceptance_tests/007/lib/test.ak b/examples/acceptance_tests/007/lib/test.ak new file mode 100644 index 00000000..82fc7f83 --- /dev/null +++ b/examples/acceptance_tests/007/lib/test.ak @@ -0,0 +1,9 @@ +pub fn unzip(xs: List<(a, b)>) -> (List, List) { + when xs is { + [] -> ([], []) + [(a, b), ..rest] -> { + let (a_tail, b_tail) = unzip(rest) + ([a, ..a_tail], [b, ..b_tail]) + } + } +}