Changeset 87e1de in git for factory/cf_factor.cc

Timestamp:

Apr 18, 1997, 5:58:18 PM (27 years ago)

Author:

Jens Schmidt <schmidt@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0d500e67330f37dbdcb7821411be8069d1e124da

Parents:

077e9c8cfe9c1a0c5fe1f9f503c15385a22cb040

Message:

o new function sqrFree( f, sort ) added which sorts the
  resulting list of squarefree factors by degree and joins
  factors occuring in the list to the same exponent


git-svn-id: file:///usr/local/Singular/svn/trunk@179 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• factory/cf_factor.cc (modified) (2 diffs)

factory/cf_factor.cc

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: cf_factor.cc,v 1.2 1997-04-07 15:02:42 schmidt Exp $
+// $Id: cf_factor.cc,v 1.3 1997-04-18 15:58:18 schmidt Exp $
 
 /*
 $Log: not supported by cvs2svn $
+Revision 1.2  1997/04/07 15:02:42  schmidt
+#include <config.h> added
+
 Revision 1.1  1997/03/18 14:43:52  schmidt
 Removed test on MULTIFACTOR #define
@@ -66 +69 @@
 }
 
+CFFList sqrFree ( const CanonicalForm & f, bool sort )
+{
+//    ASSERT( f.isUnivariate(), "multivariate factorization not implemented" );
+    CFFList result;
+
+    if ( getCharacteristic() == 0 )
+        result = sqrFreeZ( f );
+    else
+        result = sqrFreeFp( f );
+
+    return ( sort ? sortCFFList( result ) : result );
+}
+
 CFFList sqrFree ( const CanonicalForm & f )
 {
-//    ASSERT( f.isUnivariate(), "multivariate factorization not implemented" );
-    if ( getCharacteristic() == 0 )
-        return sqrFreeZ( f );
-    else
-        return sqrFreeFp( f );
+    return sqrFree( f, false );
 }