--- a/src/Pure/library.ML Sun Jul 02 17:27:10 2006 +0200
+++ b/src/Pure/library.ML Mon Jul 03 16:25:10 2006 +0200
@@ -1228,6 +1228,9 @@
(** misc **)
+(* decompose the "problem" x into a list of subproblems ys and a recombination *)
+(* function recomb, solve the subproblems recursively, use recomb to combine *)
+(* the recursive solutions for ys into an overall "solution" for x *)
fun divide_and_conquer decomp x =
let val (ys, recomb) = decomp x
in recomb (map (divide_and_conquer decomp) ys) end;