算法 2.24
void purge_Osq( SqList &L ) 
{
      // 已知 L 為順序有序表，本算法刪除 L 中值相同的多余元素
      i = -1;  j = 0;    // 設(shè)新的La表為一個(gè)空表     
      while ( j < L.length ) {
        if ( j==0 || L.elem[i] != L.elem[j] )    
          L.elem[++i] = L.elem[j];    // 將 L.elem[j]"插入"到 La 表中
                                      // 且 La 表的表長增 1
        j++;                          // 繼續(xù)檢查 Lb 表中下一個(gè)元素
      }//while
      L.length = i+1;                
}// purge_Osq