给出下图中的斐波拉契堆调用FIB-HEAP-EXTRACT-

FfibHeapExtractMin(H)
{
    z=H.min;
    if(z)
    {
        bool flag=true;
        for(x=z->child,*next;x&&flag;x=next)
        {
            next=x->right;
            if(next==z->child)flag=false;
            insert(H.min,x);
            x->p=NULL;
        }
        remove(z);
        if(z==z->right)H.min=NULL;
        else
        {
            H.min=z->right;
            consolidate(H);
        }
        --H.n;
    }
    return z;
}