killerswan · April 26, 2011 10:53
diff --git a/gistfile1.ml b/gistfile1.ml
 (* Brian McNamara's approach isn't actually that bad, unless List had an efficient append.  But simplify it like so... *)

 let suffixesTR3 list =
   let rec loop l acc =
      match l with
      | [] -> acc
      | _::xs -> loop xs (xs :: acc) in

   List.rev (loop list [list])
	(* Brian McNamara's approach isn't actually that bad, unless List had an efficient append. But simplify it like so... *)

	let suffixesTR3 list =
	let rec loop l acc =
	match l with
	\| [] -> acc
	\| _::xs -> loop xs (xs :: acc) in

	List.rev (loop list [list])