Index of /705/coursedir/old/balanced

To test your solution to Assignment 2, do the following.

Load my (or another fast correct implementation):

  # #use "";;

Load testing harness:

  # #use ""
  val test :
    (int list -> int list list) -> (int list -> int list list) -> bool -> unit = <fun>

Apply function test to correct balanced function, and give result a name:

  # let f = test balanced;;
  val f : (int list -> int list list) -> bool -> unit = <fun>

Load your balanced function:

  # #use "";;

Apply f to your function and false:

  # f balanced false;;

If this reports errors because you forgot to remove duplicate answers, try

  # f balanced true;;

to see if that's the only problem.

Look at to see what the tests are.