package bjc.utils.data;

import bjc.utils.data.internals.BoundLazyPair;
import bjc.utils.data.internals.HalfBoundLazyPair;

import java.util.function.BiFunction;
import java.util.function.Function;
import java.util.function.Supplier;

/**
 * A lazy implementation of a pair
 *
 * @author ben
 *
 * @param <LeftType>
 *                The type on the left side of the pair
 * @param <RightType>
 *                The type on the right side of the pair
 *
 */
public class LazyPair<LeftType, RightType> implements IPair<LeftType, RightType> {
	private LeftType	leftValue;
	private RightType	rightValue;

	private Supplier<LeftType>	leftSupplier;
	private Supplier<RightType>	rightSupplier;

	private boolean	leftMaterialized;
	private boolean	rightMaterialized;

	/**
	 * Create a new lazy pair, using the set values
	 *
	 * @param leftVal
	 *                The value for the left side of the pair
	 * @param rightVal
	 *                The value for the right side of the pair
	 */
	public LazyPair(LeftType leftVal, RightType rightVal) {
		leftValue = leftVal;
		rightValue = rightVal;

		leftMaterialized = true;
		rightMaterialized = true;
	}

	/**
	 * Create a new lazy pair from the given value sources
	 *
	 * @param leftSupp
	 *                The source for a value on the left side of the pair
	 * @param rightSupp
	 *                The source for a value on the right side of the pair
	 */
	public LazyPair(Supplier<LeftType> leftSupp, Supplier<RightType> rightSupp) {
		// Use single suppliers to catch double-instantiation bugs
		leftSupplier = new SingleSupplier<>(leftSupp);
		rightSupplier = new SingleSupplier<>(rightSupp);

		leftMaterialized = false;
		rightMaterialized = false;
	}

	@Override
	public <BoundLeft, BoundRight> IPair<BoundLeft, BoundRight> bind(
			BiFunction<LeftType, RightType, IPair<BoundLeft, BoundRight>> binder) {
		return new BoundLazyPair<>(leftSupplier, rightSupplier, binder);
	}

	@Override
	public <BoundLeft> IPair<BoundLeft, RightType> bindLeft(
			Function<LeftType, IPair<BoundLeft, RightType>> leftBinder) {
		Supplier<LeftType> leftSupp = () -> {
			if (leftMaterialized)
				return leftValue;

			return leftSupplier.get();
		};

		return new HalfBoundLazyPair<>(leftSupp, leftBinder);
	}

	@Override
	public <BoundRight> IPair<LeftType, BoundRight> bindRight(
			Function<RightType, IPair<LeftType, BoundRight>> rightBinder) {
		Supplier<RightType> rightSupp = () -> {
			if (rightMaterialized)
				return rightValue;

			return rightSupplier.get();
		};

		return new HalfBoundLazyPair<>(rightSupp, rightBinder);
	}

	@Override
	public <OtherLeft, OtherRight, CombinedLeft, CombinedRight> IPair<CombinedLeft, CombinedRight> combine(
			IPair<OtherLeft, OtherRight> otherPair,
			BiFunction<LeftType, OtherLeft, CombinedLeft> leftCombiner,
			BiFunction<RightType, OtherRight, CombinedRight> rightCombiner) {
		return otherPair.bind((otherLeft, otherRight) -> {
			return bind((leftVal, rightVal) -> {
				CombinedLeft left = leftCombiner.apply(leftVal, otherLeft);
				CombinedRight right = rightCombiner.apply(rightVal, otherRight);

				return new LazyPair<>(left, right);
			});
		});
	}

	@Override
	public LeftType getLeft() {
		if (!leftMaterialized) {
			leftValue = leftSupplier.get();

			leftMaterialized = true;
		}

		return leftValue;
	}

	@Override
	public RightType getRight() {
		if (!rightMaterialized) {
			rightValue = rightSupplier.get();

			rightMaterialized = true;
		}

		return rightValue;
	}

	@Override
	public <NewLeft> IPair<NewLeft, RightType> mapLeft(Function<LeftType, NewLeft> mapper) {
		Supplier<NewLeft> leftSupp = () -> {
			if (leftMaterialized)
				return mapper.apply(leftValue);

			return mapper.apply(leftSupplier.get());
		};

		Supplier<RightType> rightSupp = () -> {
			if (rightMaterialized)
				return rightValue;

			return rightSupplier.get();
		};

		return new LazyPair<>(leftSupp, rightSupp);
	}

	@Override
	public <NewRight> IPair<LeftType, NewRight> mapRight(Function<RightType, NewRight> mapper) {
		Supplier<LeftType> leftSupp = () -> {
			if (leftMaterialized)
				return leftValue;

			return leftSupplier.get();
		};

		Supplier<NewRight> rightSupp = () -> {
			if (rightMaterialized)
				return mapper.apply(rightValue);

			return mapper.apply(rightSupplier.get());
		};

		return new LazyPair<>(leftSupp, rightSupp);
	}

	@Override
	public <MergedType> MergedType merge(BiFunction<LeftType, RightType, MergedType> merger) {
		if (!leftMaterialized) {
			leftValue = leftSupplier.get();

			leftMaterialized = true;
		}

		if (!rightMaterialized) {
			rightValue = rightSupplier.get();

			rightMaterialized = true;
		}

		return merger.apply(leftValue, rightValue);
	}

	@Override
	public String toString() {
		String leftVal;
		String rightVal;

		if (leftMaterialized) {
			leftVal = leftValue.toString();
		} else {
			leftVal = "(un-materialized)";
		}

		if (rightMaterialized) {
			rightVal = rightValue.toString();
		} else {
			rightVal = "(un-materialized)";
		}

		return String.format("pair[l=%s,r=%s]", leftVal, rightVal);
	}

	@Override
	public int hashCode() {
		final int prime = 31;
		int result = 1;

		result = prime * result + (leftMaterialized ? 1231 : 1237);
		result = prime * result + ((leftValue == null) ? 0 : leftValue.hashCode());
		result = prime * result + (rightMaterialized ? 1231 : 1237);
		result = prime * result + ((rightValue == null) ? 0 : rightValue.hashCode());

		return result;
	}

	@Override
	public boolean equals(Object obj) {
		if (this == obj)
			return true;
		if (obj == null)
			return false;
		if (!(obj instanceof LazyPair<?, ?>))
			return false;

		LazyPair<?, ?> other = (LazyPair<?, ?>) obj;

		if (leftMaterialized != other.leftMaterialized)
			return false;

		if (leftMaterialized) {
			if (leftValue == null) {
				if (other.leftValue != null)
					return false;
			} else if (!leftValue.equals(other.leftValue))
				return false;
		} else {
			return false;
		}

		if (rightMaterialized != other.rightMaterialized)
			return false;
		if (rightMaterialized) {
			if (rightValue == null) {
				if (other.rightValue != null)
					return false;
			} else if (!rightValue.equals(other.rightValue))
				return false;
		} else {
			return false;
		}

		return true;
	}
}