function heapsort(&$arr) 
{ 
        //求最后一個元素位 
        $last=count($arr); 
        //堆排序中通常忽略$arr[0] 
        array_unshift($arr,0); 
        //最后一個非葉子節點 
        $i=$last>>1; 
 
        //整理成大頂堆,最大的數整到堆頂,并將最大數和堆尾交換,并在之后的計算中忽略數組后端的最大數(last),直到堆頂(last=堆頂) 
        while(true) 
        { 
                adjustnode($i,$last,$arr); 
                if($i>1) 
                { 
                        //移動節點指針,遍歷所有非葉子節點 
                        $i--; 
                } 
                else 
                { 
                        //臨界點last=1,既所有排序完成 
                        if($last==1)break; 
                        //當i為1時表示每一次的堆整理都將得到最大數(堆頂,$arr[1]),重復在根節點調整堆 
                        swap($arr[$last],$arr[1]); 
                        //在數組尾部按大小順序保留最大數,定義臨界點last,以免整理堆時重新打亂數組后面已排序好的元素 
                        $last--; 
                } 
        } 
        //彈出第一個數組元素 
        array_shift($arr); 
} 
 
//整理當前樹節點($n),臨界點$last之后為已排序好的元素 
function adjustnode($n,$last,&$arr) 
{ 
        $l=$n<<1;        //$n的左孩子位 
        if(!isset($arr[$l])||$l>$last) return ; 
        $r=$l+1;        //$n的右孩子位 
 
        //如果右孩子比左孩子大,則讓父節點的右孩子比 
        if($r<=$last&&$arr[$r]>$arr[$l]) $l=$r; 
        //如果其中子節點$l比父節點$n大,則與父節點$n交換 
        if($arr[$l]>$arr[$n])                 
        { 
                //子節點($l)的值與父節點($n)的值交換 
                swap($arr[$l],$arr[$n]); 
                //交換后父節點($n)的值($arr[$n])可能還小于原子節點($l)的子節點的值,所以還需對原子節點($l)的子節點進行調整,用遞歸實現 
                adjustnode($l,$last,$arr); 
        }
} 
 
//交換兩個值 
function swap(&$a,&$b) 
{ 
        $a=$a ^ $b;
         $b=$a ^ $b;
         $a=$a ^ $b; 
}