fix: rename test module to tests

This commit is contained in:
rvcas
2022-12-23 21:53:59 -05:00
committed by Lucas
parent 01f2142606
commit 0d0536f6c1
33 changed files with 0 additions and 0 deletions

View File

@@ -0,0 +1,18 @@
pub fn foldr(xs: List<a>, f: fn(a, b) -> b, zero: b) -> b {
when xs is {
[] -> zero
[x, ..rest] -> f(x, foldr(rest, f, zero))
}
}
pub fn prepend(x: a, xs: List<a>) -> List<a> {
[x, ..xs]
}
pub fn concat(left: List<a>, right: List<a>) -> List<a> {
foldr(left, prepend, right)
}
test concat_1() {
concat([1, 2, 3], [4, 5, 6]) == [1, 2, 3, 4, 5, 6]
}