From 5323b7d4e8e3741190e60696b49deb56a052a984 Mon Sep 17 00:00:00 2001 From: Louis Gesbert Date: Wed, 28 Jul 2021 14:45:33 +0200 Subject: [PATCH] Fix for recent ocaml (immutable strings) See https://github.com/ocaml-sf/learn-ocaml/pull/408 to test --- exercises/mooc/week6/seq1/ex2/test.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/exercises/mooc/week6/seq1/ex2/test.ml b/exercises/mooc/week6/seq1/ex2/test.ml index 9b3f412..b919746 100644 --- a/exercises/mooc/week6/seq1/ex2/test.ml +++ b/exercises/mooc/week6/seq1/ex2/test.ml @@ -33,14 +33,14 @@ let exercise_2 = [%ty: string -> char Code.MultiSet.t] "letters" letters []) let permut s = - let s = String.copy s in - for i = String.length s - 1 downto 2 do + let s = Bytes.of_string s in + for i = Bytes.length s - 1 downto 2 do let j = Random.int (i+1) in - let x = s.[i] in - s.[i] <- s.[j] ; - s.[j] <- x + let x = Bytes.get s i in + Bytes.set s i (Bytes.get s j) ; + Bytes.set s j x done ; - s + Bytes.to_string s let exercise_3 = set_progress "Grading exercise 3." ;