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,27 @@
pub fn filter(xs: List<a>, f: fn(a) -> Bool) -> List<a> {
when xs is {
[] -> []
[x, ..rest] ->
if f(x) {
[x, ..filter(rest, f)]
} else {
filter(rest, f)
}
}
}
pub fn unique(xs: List<a>) -> List<a> {
when xs is {
[] -> []
[x, ..rest] -> [x, ..unique(filter(rest, fn(y) { y != x }))]
}
}
test unique_1() {
unique([]) == []
}
test unique_2() {
let xs = [1, 2, 3, 1]
unique(xs) == [1, 2, 3]
}