Changeset cbc84b in git
- Timestamp:
- Mar 15, 1999, 2:58:30 PM (25 years ago)
- Branches:
- (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
- Children:
- cbf36f5fd5b1bb3224d54ba7728bcc9b8550e1a8
- Parents:
- 2e467b8c085c6337853964f2f6f4231010debdc8
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/clapsing.cc
r2e467b rcbc84b 3 3 * Computer Algebra System SINGULAR * 4 4 ****************************************/ 5 // $Id: clapsing.cc,v 1.4 6 1999-03-08 14:10:22Singular Exp $5 // $Id: clapsing.cc,v 1.47 1999-03-15 13:58:30 Singular Exp $ 6 6 /* 7 7 * ABSTRACT: interface between Singular and factory … … 202 202 if (f!=NULL) pCleardenom(f); 203 203 if (g!=NULL) pCleardenom(g); 204 204 else return pCopy(f); // g==0 => gcd=f (but do a pCleardenom) 205 if (f==NULL) return pCopy(g); // f==0 => gcd=g (but do a pCleardenom) 206 205 207 // for now there is only the possibility to handle polynomials over 206 208 // Q and Fp ... … … 257 259 pDelete(&f); 258 260 pDelete(&g); 261 pTest(res); 259 262 return res; 260 263 } -
Tst/Short/gcdp_s.res.gz.uu
r2e467b rcbc84b 1 1 begin 640 gcdp_s.res.gz 2 M'XL(" *:!)#8``V=C9'!?<RYR97,`W5I;;QNY%7[WKR",`"N--#(/R>$E@0UL2 M'XL(",D1[38``V=C9'!?<RYR97,`W5I;;QNY%7[WKR",`"N--#(/R>$E@0UL 3 3 MFT41H"T6R+:/V4QTL0:6)4,:.]H6_>\]O`R'HY%LQ<E#422Q>3D\/#=^_$3E 4 4 MXV_O/_R=$`(WY.J*O/DP>TMNI[.'WW>3>E>/GPA,!`%C]!555Q0(T+<,_Q9D … … 41 41 M.&U88<K<V&J_L(LM,D'I11&XL<W<7&.22.HVY6$`71[&&RY3#SN?IP%49U7+ 42 42 ML;`ZCG*L0TW/<*R>:*.:18YU6B2Y;NSS2B!-@W-NQ#9EC!_2)F!)R/P3S`NT 43 MB0QVJ^IV6:.6^\VL6E3SV3`JZ']< ]50*HH0Z2J6RNL,1T)>7R102_M9T^T1S44 M 2*:NK%*/;,+=;Q;B+/0Y]G.2^"!E^:%$"A$GL9,?(5)7]2&5`MZ_R_M4"GAR45 M ,7-Y'I4"KKZ52@'7YU$I?OS6>H%*B>2V$>XAD7R=D]L-V:S]8VQ39Y%/D'5Y46 M WSITXJ4KGJ5R/!W/AV.T9CF^&YYY1ON+XG9XB.ZJU0J%VS'1.\'/*$BR)F1S47 M EG_%GZV(:@YJ=U@G*Q&/W*)KCXK9%&%[@?_N,']A))MG"^SST11G>+;,[O*Y48 M DUE:J187W-.8US5%.;MJB1G"]59GMNS('IX.NV[LEZ/4`O\TDDG=%SQ:._TD49 M G(U%9O=:6%OPM%CKY]ZNT'-V?F+>#F]%=I?8(:+-N5=DEWHUUF76*D&W6:/D50 M P/'#3RQ=9Y*C5LC$&16=R;4/O0BAEJ,X$"+^231#W(7SSI*6.!"S48R:+*(K51 M N-IY:TEBS&W(A=TD3T;]/DY:)([I&)U&5H7XXCDOC-$X(MNX8IP5CA2-1:CS52 M +M?>L5`#/.9&Q%W1M^`8#Q*6Y$9?O2IAXQ\R[#,>*@!DZYA38(/@JHZ'I44G53 M XX?H<E!YR\`/IL/L[J`7-,@$:63ZE05(UN$'(KQO#^KQ?ICR`\D[J\3AEU\[54 M _\765I!R.\>K<[,+7W5M^8DOED#Z6W>Z+->WB''UQML0OT)K]Y:=O57+3:0^55 M BH"'7CR#>SW1J-K<O"22O`B"?1%\'3>Q+WX'W$3Q1+'X3FYBW^6>?>8!)4]S56 M D_JBCF+J#&ZB$J16YL<\XH/NOU2\ZA$?=,(F-3O"2+(^(]%]NG^$D>B$3NKB57 M 3$9BG^N^D9%H=1XC.7RZJ[.&DS#%*`;%^B"[#_F@$V)IZ+<3$ONR]]QQ=-1@58 M ?`X=.;DD;L4:,B+:,=X[LB>7)^DRQ5$J8N11*F)4LE+_."KB7NW.HR*L]W)W59 M BHJPY+6.N=>Z'TE%F'O`^TXJPGJO=UUG<C:]F$;9(G%'_J^3$4;5_QT9850_60 ISQSE=+',]93=76##!\YVFM4F_4\@`QB^>W,!1_YGR'\!_QU`3Y(D````43 MB0QVJ^IV6:.6^\VL6E3SV3`JZ']<[5(I8.HHE<KJ#D=`7UXF4TCX6]/M$\TA 44 MF;JR2CVR"7>_68BST.?8STGB@Y3EAQ(I1)S$3GZ$2%W5AU0*>/\N[U,IX,G% 45 MS.5Y5`JX^E8J!5R?1Z7X\5OK!2HEDMM&N(=$\G5.;C=DL_:/L4V=13Y!UN5] 46 MZ]")EZYXELKQ=#P?CM&:Y?AN>.89[2^*V^$ANJM6*Q1NQT3O!#^C(,F:D,U9 47 M_A5_MB*J.:C=89VL1#QRBZX]*F93A.T%_KO#_(61;)XML,]'4YSAV3*[R^=. 48 M9FFE6EQP3V->UQ3E[*HE9@C76YW9LB-[>#KLNK%?CE(+_--()G5?\&CM])-P 49 M-A:9W6MA;<'38JV?>[M"S]GYB7D[O!7976*'B#;G7I%=ZM58EUFK!-UFC9(# 50 MQP\_L72=28Y:(1-G5'0FUS[T(H1:CN)`B/@GT0QQ%\X[2UKB0,Q&,6JRB*[@ 51 M:N>M)8DQMR$7=I,\&?7[.&F1.*9C=!I9%>*+Y[PP1N.(;..*<58X4C06H<Z[ 52 M7'O'0@WPF!L1=T7?@F,\2%B2&WWUJH2-?\BPSWBH`)"M8TZ!#8*K.AZ6%IV, 53 M'Z++0>4M`S^8#K.[@U[0(!.DD>E7%B!9AQ^(\+X]J,?[8<H/).^L$H=??NW\ 54 M%UM;0<KM'*_.S2Y\U;7E)[Y8`NEOW>FR7-\BQM4;;T/\"JW=6W;V5BTWD?HH 55 M`AYZ\0SN]42C:G/SDDCR(@CV1?!UW,2^^!UP$\43Q>([N8E]EWN>FRAYFIO4 56 M%W444V=P$Y4@M3(_YA$?=/^EXE6/^*`3-JG9$4:2]1F)[M/](XQ$)W12%V<R 57 M$OM<]XV,1*OS&,GATUV=-9R$*48Q*-8'V7W(!YT02T._G9#8E[WGCJ.C!N-S 58 MZ,C))7$KUI`1T8[QWI$]N3Q)ERF.4A$CCU(1HY*5^L=1$?=J=QX58;V7NU-4 59 MA"6O=<R]UOU(*L+<`]YW4A'6>[WK.I.SZ<4TRA:)._)_G8PPJO[OR`BC^GGF 60 G**>+9:ZG[.X"&SYPMM.L-NE_`AG`\-V;"SCR/T/^"]50DL^2)``` 61 61 ` 62 62 end
Note: See TracChangeset
for help on using the changeset viewer.