void GetPowerSet(int i, List A, List &B) {  // 算法6.15
   // 線性表A表示集合A，線性表B表示冪集ρ(A)的一個元素。
   // 局部量k為進入函數時表B的當前長度。
   // 第一次調用本函數時，B為空表，i＝1。
   ElemType x;
   int k;
   if (i > ListLength(A)) Output(B); // 輸出當前B值，即ρ(A)的一個元素
   else { 
      GetElem(A, i, x);        k = ListLength(B);
      ListInsert(B, k+1, x);   GetPowerSet(i+1, A, B);
      ListDelete(B, k+1, x);   GetPowerSet(i+1, A, B);
   }
} // GetPowerSet