with Text_Io; use Text_Io;
with Ada.Exceptions; use Ada.Exceptions;

with Agpl.Optimization.Concorde;
use  Agpl.Optimization.Concorde;

procedure T011_mtsp is
   C : constant Cost_Matrix :=
         (1 => (0, 8, 1),
          2 => (8, 0, 9),
          3 => (1, 9, 0)
         );
   S : constant Start_Matrix :=
         (1,
          2
         );
begin
   declare
      Sol : constant Result_Matrix := Solve_MTSP (S, C);
   begin
      Print_Solution (C, Sol);
   end;
exception
   when No_Solution =>
      Put_Line ("NO VALID SOLUTION FOUND");
      raise;
   when E : others =>
      Put_Line ("Exception: " & Exception_Information (E));
end T011_mtsp;