arkitu/mp2i-info
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix dominant

Browse Source
This commit is contained in:
Arkitu 2025-12-12 12:07:22 +01:00
parent 17230c0cd0
commit 6daf7124fe
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dm5/lib/lib.ml
View File

@ -113,7 +113,7 @@ let sorteren t =
(* Exercice 9 *) (* Exercice 9 *)
let dominant s = let dominant s =
let counts = Array.make 0 126 in let counts = Array.make 126 0 in
String.iter (fun c -> String.iter (fun c ->
let c = Char.code c in let c = Char.code c in
counts.(c) <- counts.(c) + 1; counts.(c) <- counts.(c) + 1;

2
dm5/test/test.ml
View File

@ -20,3 +20,5 @@ assert (rotation [|[||]; [||]|] = [||]);;
assert (plsci [||] = (0,0));; assert (plsci [||] = (0,0));;
assert (plsci [|1|] = (0,1));; assert (plsci [|1|] = (0,1));;
assert (plsci [|1; 1|] = (0,2));; assert (plsci [|1; 1|] = (0,2));;
assert (dominant "aaetisanutesn'gqphteiuatnstbm(mab" = 'a');;