diff --git a/dm5/lib/lib.ml b/dm5/lib/lib.ml index b099e71..cc347d6 100644 --- a/dm5/lib/lib.ml +++ b/dm5/lib/lib.ml @@ -113,7 +113,7 @@ let sorteren t = (* Exercice 9 *) let dominant s = - let counts = Array.make 0 126 in + let counts = Array.make 126 0 in String.iter (fun c -> let c = Char.code c in counts.(c) <- counts.(c) + 1; diff --git a/dm5/test/test.ml b/dm5/test/test.ml index 8a76543..3513b98 100644 --- a/dm5/test/test.ml +++ b/dm5/test/test.ml @@ -20,3 +20,5 @@ assert (rotation [|[||]; [||]|] = [||]);; assert (plsci [||] = (0,0));; assert (plsci [|1|] = (0,1));; assert (plsci [|1; 1|] = (0,2));; + +assert (dominant "aaetisanutesn'gqphteiuatnstbm(mab" = 'a');;