Anagrams: Difference between revisions

Content added Content deleted

Inline

@@ Line 384: / Line 384: @@
   let len = List.length li in
   let s = String.create len in
+  let i = ref 0 in
-  ignore(
-    List.fold_left (fun i c ->
+  List.iter (fun c -> s.[!i] <- c; incr i) li;
-      s.[i] <- c; succ i
-    ) 0 li);
   (s)