sidekick/util/test.ml

module S = Sat.Make(struct end)

let init () =
  let v = Array.init 5 (fun _ -> S.new_atom ()) in
  [ [
    [v.(0); v.(1)];
    [S.neg v.(0); v.(2)];
    [S.neg v.(1); v.(2)];
  ];
    [
      [v.(3); v.(4)];
      [S.neg v.(3); S.neg v.(2)];
      [S.neg v.(4); S.neg v.(2)];
    ]
  ]

let print_assign fmt () =
  S.iter_atoms (fun a ->
      Format.fprintf fmt "%a -> %s,@ "
        S.print_atom a
        (if S.eval a then "true" else "false")
    )

let main () =
  Log.set_debug 10;
  Format.printf "Hello World !@.";
  List.iter (fun l ->
      List.iter (fun c -> Format.printf "Adding : %a@."
                    (fun _ -> List.iter (fun a -> Format.printf "%a " S.print_atom a)) c) l;
      S.assume l;
      match S.solve () with
      | S.Sat -> Format.printf "Sat@\n%a@." print_assign ()
      | S.Unsat -> Format.printf "Unsat@.") (init ());
;;

main ()