Return to ts_brackmons.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Schubert

Import the second public release of PHCpack.

OKed by Jan Verschelde.

with text_io,integer_io;               use text_io,integer_io;
with Brackets,Brackets_io;             use Brackets,Brackets_io;
with Bracket_Monomials;                use Bracket_Monomials;
with Bracket_Monomials_io;             use Bracket_Monomials_io;

procedure ts_brackmons is

  procedure Main is

    d,m : natural;
    bm,bm_last : Bracket_Monomial;

  begin
    put("GIve the number of entries in the brackets : "); get(d);
    put("Give the number of brackets : "); get(m);
    for i in 1..m loop
      declare
        b : Bracket(1..d);
        si : integer;
      begin
        put("Give "); put(d,1); put(" numbers for the ");
        put(i,1); put("th bracket : "); get(b);
        Multiply(bm,b);
      end;
    end loop;
    put_line("The bracket monomial : "); put(bm); new_line;
  end Main;

begin
  Main;
end ts_brackmons;