public class HuffmanNode {
  
  private int weight = -1;
  
  private int parent = -1;
  
  private int left = -1;
  
  private int right = -1;

  public HuffmanNode(int weight) {
    super();
    this.weight = weight;
  }

  public HuffmanNode(int weight, int left, int right) {
    super();
    this.weight = weight;
    this.left = left;
    this.right = right;
  }

  public int getWeight() {
    return weight;
  }

  public void setWeight(int weight) {
    this.weight = weight;
  }

  public int getParent() {
    return parent;
  }

  public void setParent(int parent) {
    this.parent = parent;
  }

  public int getLeft() {
    return left;
  }

  public void setLeft(int left) {
    this.left = left;
  }

  public int getRight() {
    return right;
  }

  public void setRight(int right) {
    this.right = right;
  }

  @Override
  public String toString() {
    return "HuffmanNode [weight=" + weight + ", parent=" + parent + ","
        + " left=" + left + ", right=" + right + "]";
  }

}

public class TreeException extends RuntimeException {
  
  private static final long serialVersionUID = 1L;

  public TreeException() {}

  public TreeException(String message) {
    super(message);
  }

}

public class HuffmanTree {
  
  protected HuffmanNode[] huffmanTree;
  
  public HuffmanTree(int[] leafs) {
    //異常條件判斷
    if (leafs.length <= 1) {
      throw new TreeException("葉子結(jié)點(diǎn)個(gè)數(shù)小于2，無(wú)法構(gòu)建哈夫曼樹(shù)");
    }
    //初始化儲(chǔ)存空間
    huffmanTree = new HuffmanNode[leafs.length*2-1];
    //構(gòu)造n棵只含根結(jié)點(diǎn)的二叉樹(shù)
    for (int i = 0; i < leafs.length; i++) {
      HuffmanNode node = new HuffmanNode(leafs[i]);
      huffmanTree[i] = node;
    }
    //構(gòu)造哈夫曼樹(shù)的選取與合并
    for (int i = leafs.length; i < huffmanTree.length; i++) {
      //獲取權(quán)值最小的結(jié)點(diǎn)下標(biāo)
      int miniNum_1 = selectMiniNum1();
      //獲取權(quán)值次小的結(jié)點(diǎn)下標(biāo)
      int miniNum_2 = selectMiniNum2();
      if (miniNum_1 == -1 || miniNum_2 == -1) {
        return;
      }
      //兩個(gè)權(quán)值最小的結(jié)點(diǎn)合并為新節(jié)點(diǎn)
      HuffmanNode node = new HuffmanNode(huffmanTree[miniNum_1].getWeight() + 
          huffmanTree[miniNum_2].getWeight(), miniNum_1, miniNum_2);
      huffmanTree[i] = node;
      huffmanTree[miniNum_1].setParent(i);
      huffmanTree[miniNum_2].setParent(i);
    }
  }
  
  /**
   * 獲取權(quán)值最小的結(jié)點(diǎn)下標(biāo)
   * @return
   */
  private int selectMiniNum1() {
    //最小值
    int min = -1;
    //最小值下標(biāo)
    int index = -1;
    //是否完成最小值初始化
    boolean flag = false;
    //遍歷一遍
    for (int i = 0; i < huffmanTree.length; i++) {
      //排空、只看根結(jié)點(diǎn)，否則跳過(guò)
      if (huffmanTree[i] == null || huffmanTree[i].getParent() != -1) {
        continue;
      } else if (!flag) {   //沒(méi)初始化先初始化然后跳過(guò)
        //初始化
        min = huffmanTree[i].getWeight();
        index = i;
        //以后不再初始化min
        flag = true;
        //跳過(guò)本次循環(huán)
        continue;
      }
      int tempWeight = huffmanTree[i].getWeight();
      //低效比較
      if (tempWeight < min) {
        min = tempWeight;
        index = i;
      }
    }
    return index;
  }
  
  /**
   * 獲取權(quán)值次小的結(jié)點(diǎn)下標(biāo)
   * @return
   */
  private int selectMiniNum2() {
    //次小值
    int min = -1;
    //是否完成次小值初始化
    boolean flag = false;
    //最小值下標(biāo)（調(diào)用上面的方法）
    int index = selectMiniNum1();
    //最小值都不存在，則次小值也不存在
    if (index == -1) {
      return -1;
    }
    //次小值下標(biāo)
    int index2 = -1;
    //遍歷一遍
    for (int i = 0; i < huffmanTree.length; i++) {
      //最小值不要、排空、只看根結(jié)點(diǎn)，否則跳過(guò)
      if (index == i || huffmanTree[i] == null || huffmanTree[i].getParent() != -1) {
        continue;
      } else if (!flag) {   //沒(méi)初始化先初始化然后跳過(guò)
        //初始化
        min = huffmanTree[i].getWeight();
        index2 = i;
        //以后不再初始化min
        flag = true;
        //跳過(guò)本次循環(huán)
        continue;
      }
      int tempWeight = huffmanTree[i].getWeight();
      //低效比較
      if (tempWeight < min) {
        min = tempWeight;
        index2 = i;
      }
    }
    return index2;
  }

}

public class HuffmanTreeTester {

  public static void main(String[] args) {
    int[] leafs = {1, 3, 5, 6, 2, 22, 77, 4, 9};
    HuffmanTree tree = new HuffmanTree(leafs);
    HuffmanNode[] nodeList = tree.huffmanTree;
    for (HuffmanNode node : nodeList) {
      System.out.println(node);
    }
  }

}

public class HuffmanTreeTester {

  public static void main(String[] args) {
    int[] leafs = {2, 4, 5, 3};
    HuffmanTree tree = new HuffmanTree(leafs);
    HuffmanNode[] nodeList = tree.huffmanTree;
    for (HuffmanNode node : nodeList) {
      System.out.println(node);
    }
  }

}