Artifact e62ea3e86b623dfb827199966ad6d452151146d2c2de7eabff62c344234c8798:

• Executable file r37/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: 487) [annotate] [blame] [check-ins using] [more...]

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

% Author: Herbert Melenk

fluid '(dipevlist!*);

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;