Artifact 87b1b2d37181e63e8d07962e3c55edb5ecc1d25b52e7728431d84000846d8eca:

• Executable file r38/packages/dipoly/condense.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 452) [annotate] [blame] [check-ins using] [more...]

module condense;  % unify exponent vectors for lower memory consumption.

% Author: Herbert Melenk

dipevlist!*:={nil};

symbolic procedure dipcondense f;
 begin scalar dl,ev;
  dl:=dipevlist!*;
  while f do
  <<ev := dipevlmon f; 
    while cdr dl and evcompless!?(dipevlmon f,cadr dl) do dl:=cdr dl;
    if cdr dl and ev=cadr dl 
      then car f := cadr dl
      else cdr dl:= ev.cdr dl; 
    f:=dipmred f >> end;

endmodule;;end;