第五章數(shù)組和廣義表518VOIDRSHINTAN,INTK/把數(shù)組A的元素循環(huán)右移K位,只用一個輔助存儲空間FORI1IA6,A6A12,A12A3,A3A9,A9A0第二條鏈A1A7,A7A13,A13A4,A4A10,A10A1第三條鏈A2A8,A8A14,A14A5,A5A11,A11A2恰好使所有元素都右移一次雖然未經(jīng)數(shù)學(xué)證明,但作者相信上述規(guī)律應(yīng)該是正確的519VOIDGET_SADDLEINTAMN/求矩陣A中的馬鞍點FORI0IBDATAPBJCDATAPCIXCDATAPCJBDATAPBJCDATAPCEBDATAPBEPBPCELSECDATAPCIXCDATAPCJADATAPAJCDATAPCEADATAPAEPAPC/WHILEWHILEADATAPAX/插入A中剩余的元素第X行CDATAPCIXCDATAPCJADATAPAJCDATAPCEADATAPAEPAPCWHILEBDATAPBX/插入B中剩余的元素第X行CDATAPCIXCDATAPCJBDATAPBJCDATAPCEBDATAPBEPBPC/FORCTUPC/TSMATRIX_ADD522VOIDTSMATRIX_ADDTOTSMATRIXIBDATAPBJADATAPCIXADATAPCJBDATAPBJADATAPCEBDATAPBEPBPCELSEADATAPCIXADATAPCJADATAPAJADATAPCEADATAPAEPAPC/WHILEWHILEADATAPAX/插入A中剩余的元素第X行ADATAPCIXADATAPCJADATAPAJADATAPCEADATAPAEPAPCWHILEBDATAPBX/插入B中剩余的元素第X行ADATAPCIXADATAPCJBDATAPBJADATAPCEBDATAPBEPBPC/FORATUPCFORIATUIRIGHT/逐次遍歷每一個行鏈表PRINTF“DDDN“,I,PJ,PE/PRINT_OLMATRIX527VOIDOLMATRIX_ADDOLMATRIXJJPBJ/新插入一個結(jié)點POLNODEMALLOCSIZEOFOLNODEIFPREARHEADIPELSEPRERIGHTPPRIGHTPAPREPPIIPJPBJPEPBE/插入行鏈表中IFACHEADPJACHEADPJPPDOWNNULLELSEWHILECPPJDOWNCPPJCPPJDOWNPDOWNCPPJDOWNCPPJDOWNPCPPJP/插入列鏈表中/IFELSEIFPAJJPREPAPAPARIGHT/PA右移一步ELSEIFPAEPBEPAEPBEPREPAPAPARIGHTPBPBRIGHT/直接相加ELSEIFPREARHEADIPARIGHTELSEPRERIGHTPARIGHTPPAPAPARIGHT/從行鏈表中刪除IFACHEADPJPACHEADPJCPPJPDOWNELSECPPJDOWNPDOWN/從列鏈表中刪除FREEP/ELSE/WHILE/FOR/OLMATRIX_ADD分析本題的具體思想在課本中有詳細的解釋說明528VOIDMPLIST_PIANDAOMPLISTPPREP,PPTPIFPTAGMULPHP,PEXPELSEPCOEFPEXP/把指數(shù)乘在本結(jié)點或其下屬結(jié)點上PEXPPRETPNULLIFPFREEP/刪除可能存在的常數(shù)項/MPLIST_PIANDAOVOIDMULMPLISTPPPTPIFPTAGPCOEFXELSEMULPHP,X/MUL529VOIDMPLIST_ADDMPLISTA,MPLISTB,MPLISTIFATAGIFCCOEFFREECCNULL/IFELSEIFATAGQBPRENULLWHILEPCEXPPEXPMPLIST_ADDAHP,BHP,CHPPRETPCPRECPPTPQQTPELSEIFPEXPQEXPCMPLNODEMALLOCSIZEOFMPLNODECEXPPEXPCHPAHPPRETPCPRECPPTPELSECMPLNODEMALLOCSIZEOFMPLNODECEXPQEXPCHPBHPPRETPCPRECQQTP/WHILEWHILEPCMPLNODEMALLOCSIZEOFMPLNODECEXPPEXPCHPPHPPRETPCPRECPPTPWHILEQCMPLNODEMALLOCSIZEOFMPLNODECEXPQEXPCHPQHPPRETPCPRECQQTP/將其同次項分別相加得到新的多項式,原理見第二章多項式相加一題/ELSEIFELSEIFATAGFORPAPTPTPPPTPIFPTPEXP0PTPCOEFX/當(dāng)多項式中含有常數(shù)項時,加上常數(shù)項IFPTPCOEFFREEPTPPTPNULLELSEQMPLNODEMALLOCSIZEOFMPLNODEQCOEFXQEXP0QTAG0QTPNULLPTPQ/否則新建常數(shù)項,下同/ELSEIFELSEXACOEFFORPBPTPTPPPTPIFPTPEXP0PTPCOEFXIFPTPCOEFFREEPTPPTPNULLELSEQMPLNODEMALLOCSIZEOFMPLNODEQCOEFXQEXP0QTAG0QTPNULLPTPQ/ELSE/MPLIST_ADD530INTGLIST_GETDEPHGLISTL/求廣義表深度的遞歸算法IFLTAGRETURN0/原子深度為0ELSEIFLRETURN1/空表深度為1MGLIST_GETDEPHLPTRHP1NGLIST_GETDEPHLPTRTPRETURNMNMN/GLIST_GETDEPH531VOIDGLIST_COPYGLISTA,GLISTBATOMAATOMELSE/當(dāng)結(jié)點為子表時BTAG1IFAPTRHPBPTRHPMALLOCSIZEOFGLNODEGLIST_COPYAPTRHP,BPTRHP/復(fù)制表頭IFAPTRTPBPTRTPMALLOCSIZEOFGLNODEGLIST_COPYAPTRTP,BPTRTP/復(fù)制表尾/ELSE/GLIST_COPY532INTGLIST_EQUALGLISTA,GLISTB/判斷廣義表A和B是否相等,是則返回1,否則返回0/廣義表相等可分三種情況IFA/空表是相等的IFATAG/原子的值相等IFATAG/表頭表尾都相等RETURN0/GLIST_EQUAL533VOIDGLIST_PRINTELEMGLISTA,INTLAYER/遞歸輸出廣義表的原子及其所在層次,LAYER表示當(dāng)前層次IFARETURNIFATAGPRINTF“DDN“,AATOM,LAYERELSEGLIST_PRINTELEMAPTRHP,LAYER1GLIST_PRINTELEMAPTRTP,LAYER/注意尾表與原表是同一層次/GLIST_PRINTELEM534VOIDGLIST_REVERSEGLISTA/遞歸逆轉(zhuǎn)廣義表AIFATAGAPTRTPPTRHPAPTRHPAPTRHPD/交換表頭和表尾GLIST_REVERSEAPTRHPGLIST_REVERSEAPTRTP/逆轉(zhuǎn)表頭和表尾/GLIST_REVERSE535STATUSCREATE_GLISTGLISTIFCHLNULLSCANF“C“,IFCHRETURNERRORRETURNOKLGLISTMALLOCSIZEOFGLNODELTAG1IFISALPHABETCH/輸入是字母PGLISTMALLOCSIZEOFGLNODE/建原子型表頭PTAG0PATOMCHLPTRHPPELSEIFCHCREATE_GLISTLPTRHP/建子表型表頭ELSERETURNERRORSCANF“C“,IFCHLPTRTPNULLELSEIFCH,CREATE_GLISTLPTRTP/建表尾ELSERETURNERRORRETURNOK/CREATE_GLIST分析本題思路見書后解答536VOIDGLIST_PRINTLISTGLISTA/按標(biāo)準(zhǔn)形式輸出廣義表IFAPRINTF“/空表ELSEIFATAGPRINTF“D“,AATOM/原子ELSEPRINTF“GLIST_PRINTLISTAPTRHPIFAPTRTPPRINTF“,“GLIST_PRINTLISTAPTRTP/只有當(dāng)表尾非空時才需要打印逗號PRINTF“/ELSE/GLIST_PRINTLIST537VOIDGLIST_DELELEMGLISTELSEIFAPTRHPTAGAAPTRTP/刪去元素值為X的表頭FREEQGLIST_DELELEMA,XIFAPTRTPGLIST_DELELEMAPTRTP,X/GLIST_DELELEM539VOIDGLIST_PRINTELEM_LORDERGLISTA/按層序輸出廣義表A中的所有元素INITQUEU