Return to ts_brackmons.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/Schubert/ts_brackmons.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io,integer_io;               use text_io,integer_io;
                      2: with Brackets,Brackets_io;             use Brackets,Brackets_io;
                      3: with Bracket_Monomials;                use Bracket_Monomials;
                      4: with Bracket_Monomials_io;             use Bracket_Monomials_io;
                      5:
                      6: procedure ts_brackmons is
                      7:
                      8:   procedure Main is
                      9:
                     10:     d,m : natural;
                     11:     bm,bm_last : Bracket_Monomial;
                     12:
                     13:   begin
                     14:     put("GIve the number of entries in the brackets : "); get(d);
                     15:     put("Give the number of brackets : "); get(m);
                     16:     for i in 1..m loop
                     17:       declare
                     18:         b : Bracket(1..d);
                     19:         si : integer;
                     20:       begin
                     21:         put("Give "); put(d,1); put(" numbers for the ");
                     22:         put(i,1); put("th bracket : "); get(b);
                     23:         Multiply(bm,b);
                     24:       end;
                     25:     end loop;
                     26:     put_line("The bracket monomial : "); put(bm); new_line;
                     27:   end Main;
                     28:
                     29: begin
                     30:   Main;
                     31: end ts_brackmons;