/********************************************************
 *  ██████╗  ██████╗████████╗██╗
 * ██╔════╝ ██╔════╝╚══██╔══╝██║
 * ██║  ███╗██║        ██║   ██║
 * ██║   ██║██║        ██║   ██║
 * ╚██████╔╝╚██████╗   ██║   ███████╗
 *  ╚═════╝  ╚═════╝   ╚═╝   ╚══════╝
 * Geophysical Computational Tools & Library (GCTL)
 *
 * Copyright (c) 2023  Yi Zhang (yizhang-geo@zju.edu.cn)
 *
 * GCTL is distributed under a dual licensing scheme. You can redistribute 
 * it and/or modify it under the terms of the GNU Lesser General Public 
 * License as published by the Free Software Foundation, either version 2 
 * of the License, or (at your option) any later version. You should have 
 * received a copy of the GNU Lesser General Public License along with this 
 * program. If not, see <http://www.gnu.org/licenses/>.
 * 
 * If the terms and conditions of the LGPL v.2. would prevent you from using 
 * the GCTL, please consider the option to obtain a commercial license for a 
 * fee. These licenses are offered by the GCTL's original author. As a rule, 
 * licenses are provided "as-is", unlimited in time for a one time fee. Please 
 * send corresponding requests to: yizhang-geo@zju.edu.cn. Please do not forget 
 * to include some description of your company and the realm of its activities. 
 * Also add information on how to contact you by electronic and paper mail.
 ******************************************************/

#ifndef _GCTL_HEAPSORT_H
#define _GCTL_HEAPSORT_H

// library's head file
#include "../core.h"

namespace gctl
{
	template <typename T>
	class heap_sort
	{
	public:
		/**
		 * 定义向量中的元素比较函数的指针，这个函数指针专用于堆排序算法。
		 * 因为我们不能确定在实际使用中需要进行比较的元素类型，所以不同通过
		 * 定义固定类型返回值的函数指针来达到比较的目的。
		 * 
		 * 此函数的定义必须为下述形式（替换variable为需要进行比较的变量， 此时为升序排序）
		 * if (a[left_index].<variable> < a[right_index].<variable>) return true;
		 * else return false;
		 * （此时为降序排序）
		 * if (a[left_index].<variable> > a[right_index].<variable>) return true;
		 * else return false;
		 */
		typedef bool (*compare_func_ptr)(std::vector<T> &a, int left_index, int right_index);

		/**
		 * @brief      更新堆排序
		 *
		 * @param      a     目标向量
		 * @param[in]  i     第一排序值
		 * @param[in]  n     第二排序值
		 * @param[in]  fp    比较函数
		 */
		void update_heap(std::vector<T> &a, int i, int n, compare_func_ptr fp)
		{
			int iMax = i, iLeft = 2 * i + 1, iRight = 2 * (i + 1);

			if (iLeft < n && fp(a, iMax, iLeft))
			{
				iMax = iLeft;
			}

			if (iRight < n && fp(a, iMax, iRight))
			{
				iMax = iRight;
			}

			if (iMax != i)
			{
				T tmp = a[iMax]; a[iMax] = a[i]; a[i] = tmp;
				update_heap(a, iMax, n, fp);
			}
			return;
		}

		/**
		 * @brief      执行排序
		 *
		 * @param      a     目标向量
		 * @param[in]  fp    比较函数
		 */
		void execute(std::vector<T> &a, compare_func_ptr fp)
		{
			int n = a.size();
			for (int i = (n - 1) / 2; i >= 0; i--)
			{
				update_heap(a, i, n, fp);
			}

			T tmp;
			for (int i = n - 1; i > 0; --i)
			{
				tmp = a[i]; a[i] = a[0]; a[0] = tmp;
				update_heap(a, 0, i, fp);
			}
			return;
		}

		/**
		 * 下面我们定义一套纯数组形式的重载
		 */

		/**
		 * 定义向量中的元素比较函数的指针，这个函数指针专用于堆排序算法。
		 * 因为我们不能确定在实际使用中需要进行比较的元素类型，所以不同通过
		 * 定义固定类型返回值的函数指针来达到比较的目的。
		 * 
		 * 此函数的定义必须为下述形式（替换variable为需要进行比较的变量， 此时为升序排序）
		 * if (a[left_index].<variable> < a[right_index].<variable>) return true;
		 * else return false;
		 * （此时为降序排序）
		 * if (a[left_index].<variable> > a[right_index].<variable>) return true;
		 * else return false;
		 */
		typedef bool (*compare_func_ptr2)(T *a, int left_index, int right_index);

		/**
		 * @brief      更新堆排序
		 *
		 * @param      a     目标向量
		 * @param[in]  i     第一排序值
		 * @param[in]  n     第二排序值
		 * @param[in]  fp    比较函数
		 */
		void update_heap(T *a, int i, int n, compare_func_ptr2 fp)
		{
			int iMax = i, iLeft = 2 * i + 1, iRight = 2 * (i + 1);

			if (iLeft < n && fp(a, iMax, iLeft))
			{
				iMax = iLeft;
			}

			if (iRight < n && fp(a, iMax, iRight))
			{
				iMax = iRight;
			}

			if (iMax != i)
			{
				T tmp = a[iMax]; a[iMax] = a[i]; a[i] = tmp;
				update_heap(a, iMax, n, fp);
			}
			return;
		}

		/**
		 * @brief      执行排序
		 *
		 * @param      a     目标数组
		 * @param      n     数组大小
		 * @param[in]  fp    比较函数
		 */
		void execute(T *a, int n, compare_func_ptr2 fp)
		{
			for (int i = (n - 1) / 2; i >= 0; i--)
			{
				update_heap(a, i, n, fp);
			}

			T tmp;
			for (int i = n - 1; i > 0; --i)
			{
				tmp = a[i]; a[i] = a[0]; a[0] = tmp;
				update_heap(a, 0, i, fp);
			}
			return;
		}

		/**
		 * 下面我们定义一套array形式的重载
		 */

		/**
		 * 定义向量中的元素比较函数的指针，这个函数指针专用于堆排序算法。
		 * 因为我们不能确定在实际使用中需要进行比较的元素类型，所以不同通过
		 * 定义固定类型返回值的函数指针来达到比较的目的。
		 * 
		 * 此函数的定义必须为下述形式（替换variable为需要进行比较的变量， 此时为升序排序）
		 * if (a[left_index].<variable> < a[right_index].<variable>) return true;
		 * else return false;
		 * （此时为降序排序）
		 * if (a[left_index].<variable> > a[right_index].<variable>) return true;
		 * else return false;
		 */
		typedef bool (*compare_func_ptr3)(array<T> &a, int left_index, int right_index);

		/**
		 * @brief      更新堆排序
		 *
		 * @param      a     目标向量
		 * @param[in]  i     第一排序值
		 * @param[in]  n     第二排序值
		 * @param[in]  fp    比较函数
		 */
		void update_heap(array<T> &a, int i, int n, compare_func_ptr3 fp)
		{
			int iMax = i, iLeft = 2 * i + 1, iRight = 2 * (i + 1);

			if (iLeft < n && fp(a, iMax, iLeft))
			{
				iMax = iLeft;
			}

			if (iRight < n && fp(a, iMax, iRight))
			{
				iMax = iRight;
			}

			if (iMax != i)
			{
				T tmp = a[iMax]; a[iMax] = a[i]; a[i] = tmp;
				update_heap(a, iMax, n, fp);
			}
			return;
		}

		/**
		 * @brief      执行排序
		 *
		 * @param      a     目标数组指针
		 * @param[in]  fp    比较函数
		 */
		void execute(array<T> &a, compare_func_ptr3 fp)
		{
			int n = a.size();
			for (int i = (n - 1) / 2; i >= 0; i--)
			{
				update_heap(a, i, n, fp);
			}

			T tmp;
			for (int i = n - 1; i > 0; --i)
			{
				tmp = a[i]; a[i] = a[0]; a[0] = tmp;
				update_heap(a, 0, i, fp);
			}
			return;
		}
	};
}

#endif //_GCTL_HEAPSORT_H