complete lab04
This commit is contained in:
4 files changed
+54
-2
No files matched your search
+1
-1
@@ -99,7 +99,7 @@ let test_filter () =
|
||||
let every n l = filteri (fun i _ -> (i + 1) mod n = 0) l;;
|
||||
|
||||
(**/**)
|
||||
let test_every() =
|
||||
let test_every () =
|
||||
assert (every 1 [] = []);
|
||||
assert (every 2 [1] = []);
|
||||
assert (every 3 [1;2;3;4;5;6;7;8;9;10] = [3;6;9]);
|
||||
|
||||
Reference in new issue
Block a user