Mercurial > hg > Members > tatsuki > functionaljava-master > core
diff src/main/java/fj/Function.java @ 0:fe80c1edf1be
add getLoop
author | tatsuki |
---|---|
date | Fri, 20 Mar 2015 21:04:03 +0900 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/main/java/fj/Function.java Fri Mar 20 21:04:03 2015 +0900 @@ -0,0 +1,1259 @@ +package fj; + +import fj.data.Option; + +/** + * Transformations on functions. + * + * @version %build.number% + */ +public final class Function { + private Function() { + throw new UnsupportedOperationException(); + } + + /** + * Function application with the arguments flipped. + * + * @param a The value to apply the function to. + * @return A function that is partially-applied to the given value. + */ + public static <A, B> F<F<A, B>, B> apply(final A a) { + return new F<F<A, B>, B>() { + public B f(final F<A, B> k) { + return k.f(a); + } + }; + } + + /** + * Function composition. + * + * @return A function that composes two functions to produce a new function. + */ + public static <A, B, C> F<F<B, C>, F<F<A, B>, F<A, C>>> compose() { + return new F<F<B, C>, F<F<A, B>, F<A, C>>>() { + public F<F<A, B>, F<A, C>> f(final F<B, C> f) { + return new F<F<A, B>, F<A, C>>() { + public F<A, C> f(final F<A, B> g) { + return compose(f, g); + } + }; + } + }; + } + + /** + * Function composition. + * + * @param f A function to compose with another. + * @param g A function to compose with another. + * @return A function that is the composition of the given arguments. + */ + public static <A, B, C> F<A, C> compose(final F<B, C> f, final F<A, B> g) { + return new F<A, C>() { + public C f(final A a) { + return f.f(g.f(a)); + } + }; + } + + /** + * Function composition. + * + * @param f A function to compose with another. + * @param g A function to compose with another. + * @return A function that is the composition of the given arguments. + */ + public static <A, B, C, D> F<A, F<B, D>> compose2(final F<C, D> f, final F<A, F<B, C>> g) { + return new F<A, F<B, D>>() { + public F<B, D> f(final A a) { + return new F<B, D>() { + public D f(final B b) { + return f.f(g.f(a).f(b)); + } + }; + } + }; + } + + + /** + * Function composition flipped. + * + * @return A function that composes two functions to produce a new function. + */ + public static <A, B, C> F<F<A, B>, F<F<B, C>, F<A, C>>> andThen() { + return new F<F<A, B>, F<F<B, C>, F<A, C>>>() { + public F<F<B, C>, F<A, C>> f(final F<A, B> g) { + return new F<F<B, C>, F<A, C>>() { + public F<A, C> f(final F<B, C> f) { + return Function.andThen(g, f); + } + }; + } + }; + } + + /** + * Function composition flipped. + * + * @param g A function to compose with another. + * @param f A function to compose with another. + * @return A function that is the composition of the given arguments. + */ + public static <A, B, C> F<A, C> andThen(final F<A, B> g, final F<B, C> f) { + return new F<A, C>() { + public C f(final A a) { + return f.f(g.f(a)); + } + }; + } + + /** + * The identity transformation. + * + * @return The identity transformation. + */ + public static <A> F<A, A> identity() { + return new F<A, A>() { + public A f(final A a) { + return a; + } + }; + } + + /** + * Returns a function that given an argument, returns a function that ignores its argument. + * + * @return A function that given an argument, returns a function that ignores its argument. + */ + public static <A, B> F<B, F<A, B>> constant() { + return new F<B, F<A, B>>() { + public F<A, B> f(final B b) { + return constant(b); + } + }; + } + + /** + * Returns a function that ignores its argument to constantly produce the given value. + * + * @param b The value to return when the returned function is applied. + * @return A function that ignores its argument to constantly produce the given value. + */ + public static <A, B> F<A, B> constant(final B b) { + return new F<A, B>() { + public B f(final A a) { + return b; + } + }; + } + + /** + * Simultaneously covaries and contravaries a function. + * + * @param f The function to vary. + * @return A co- and contravariant function that invokes f on its argument. + */ + public static <A, B> F<A, B> vary(final F<? super A, ? extends B> f) { + return new F<A, B>() { + public B f(final A a) { + return f.f(a); + } + }; + } + + /** + * Simultaneously covaries and contravaries a function. + * + * @return A function that varies and covaries a function. + */ + public static <C, A extends C, B, D extends B> F<F<C, D>, F<A, B>> vary() { + return new F<F<C, D>, F<A, B>>() { + public F<A, B> f(final F<C, D> f) { + return Function.<A, B>vary(f); + } + }; + } + + /** + * Function argument flipping. + * + * @return A function that takes a function and flips its arguments. + */ + public static <A, B, C> F<F<A, F<B, C>>, F<B, F<A, C>>> flip() { + return new F<F<A, F<B, C>>, F<B, F<A, C>>>() { + public F<B, F<A, C>> f(final F<A, F<B, C>> f) { + return flip(f); + } + }; + } + + /** + * Function argument flipping. + * + * @param f The function to flip. + * @return The given function flipped. + */ + public static <A, B, C> F<B, F<A, C>> flip(final F<A, F<B, C>> f) { + return new F<B, F<A, C>>() { + public F<A, C> f(final B b) { + return new F<A, C>() { + public C f(final A a) { + return f.f(a).f(b); + } + }; + } + }; + } + + /** + * Function argument flipping. + * + * @param f The function to flip. + * @return The given function flipped. + */ + public static <A, B, C> F2<B, A, C> flip(final F2<A, B, C> f) { + return new F2<B, A, C>() { + public C f(final B b, final A a) { + return f.f(a, b); + } + }; + } + + /** + * Function argument flipping. + * + * @return A function that flips the arguments of a given function. + */ + public static <A, B, C> F<F2<A, B, C>, F2<B, A, C>> flip2() { + return new F<F2<A, B, C>, F2<B, A, C>>() { + public F2<B, A, C> f(final F2<A, B, C> f) { + return flip(f); + } + }; + } + + /** + * Return a function that inspects the argument of the given function for a <code>null</code> value and if so, does + * not apply the value, instead returning an empty optional value. + * + * @param f The function to check for a <code>null</code> argument. + * @return A function that inspects the argument of the given function for a <code>null</code> value and if so, does + * not apply the value, instead returning an empty optional value. + */ + public static <A, B> F<A, Option<B>> nullable(final F<A, B> f) { + return new F<A, Option<B>>() { + public Option<B> f(final A a) { + return a == null ? Option.<B>none() : Option.some(f.f(a)); + } + }; + } + + /** + * Curry a function of arity-2. + * + * @param f The function to curry. + * @return A curried form of the given function. + */ + public static <A, B, C> F<A, F<B, C>> curry(final F2<A, B, C> f) { + return new F<A, F<B, C>>() { + public F<B, C> f(final A a) { + return new F<B, C>() { + public C f(final B b) { + return f.f(a, b); + } + }; + } + }; + } + + /** + * Curry a function of arity-2. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C> F<B, C> curry(final F2<A, B, C> f, final A a) { + return curry(f).f(a); + } + + /** + * Uncurry a function of arity-2. + * + * @return An uncurried function. + */ + public static <A, B, C> F<F<A, F<B, C>>, F2<A, B, C>> uncurryF2() { + return new F<F<A, F<B, C>>, F2<A, B, C>>() { + public F2<A, B, C> f(final F<A, F<B, C>> f) { + return uncurryF2(f); + } + }; + } + + /** + * Uncurry a function of arity-2. + * + * @param f The function to uncurry. + * @return An uncurried function. + */ + public static <A, B, C> F2<A, B, C> uncurryF2(final F<A, F<B, C>> f) { + return new F2<A, B, C>() { + public C f(final A a, final B b) { + return f.f(a).f(b); + } + }; + } + + /** + * Curry a function of arity-3. + * + * @param f The function to curry. + * @return A curried form of the given function. + */ + public static <A, B, C, D> F<A, F<B, F<C, D>>> curry(final F3<A, B, C, D> f) { + return new F<A, F<B, F<C, D>>>() { + public F<B, F<C, D>> f(final A a) { + return new F<B, F<C, D>>() { + public F<C, D> f(final B b) { + return new F<C, D>() { + public D f(final C c) { + return f.f(a, b, c); + } + }; + } + }; + } + }; + } + + /** + * Curry a function of arity-3. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D> F<B, F<C, D>> curry(final F3<A, B, C, D> f, final A a) { + return curry(f).f(a); + } + + /** + * Curry a function of arity-3. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D> F<C, D> curry(final F3<A, B, C, D> f, final A a, final B b) { + return curry(f, a).f(b); + } + + /** + * Uncurry a function of arity-3. + * + * @return An uncurried function. + */ + public static <A, B, C, D> F<F<A, F<B, F<C, D>>>, F3<A, B, C, D>> uncurryF3() { + return new F<F<A, F<B, F<C, D>>>, F3<A, B, C, D>>() { + public F3<A, B, C, D> f(final F<A, F<B, F<C, D>>> f) { + return uncurryF3(f); + } + }; + } + + /** + * Uncurry a function of arity-3. + * + * @param f The function to uncurry. + * @return An uncurried function. + */ + public static <A, B, C, D> F3<A, B, C, D> uncurryF3(final F<A, F<B, F<C, D>>> f) { + return new F3<A, B, C, D>() { + public D f(final A a, final B b, final C c) { + return f.f(a).f(b).f(c); + } + }; + } + + /** + * Curry a function of arity-4. + * + * @param f The function to curry. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E> F<A, F<B, F<C, F<D, E>>>> curry(final F4<A, B, C, D, E> f) { + return new F<A, F<B, F<C, F<D, E>>>>() { + public F<B, F<C, F<D, E>>> f(final A a) { + return new F<B, F<C, F<D, E>>>() { + public F<C, F<D, E>> f(final B b) { + return new F<C, F<D, E>>() { + public F<D, E> f(final C c) { + return new F<D, E>() { + public E f(final D d) { + return f.f(a, b, c, d); + } + }; + } + }; + } + }; + } + }; + } + + /** + * Curry a function of arity-4. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E> F<B, F<C, F<D, E>>> curry(final F4<A, B, C, D, E> f, final A a) { + return curry(f).f(a); + } + + /** + * Curry a function of arity-4. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E> F<C, F<D, E>> curry(final F4<A, B, C, D, E> f, final A a, final B b) { + return curry(f).f(a).f(b); + } + + /** + * Curry a function of arity-4. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E> F<D, E> curry(final F4<A, B, C, D, E> f, final A a, final B b, final C c) { + return curry(f).f(a).f(b).f(c); + } + + /** + * Uncurry a function of arity-4. + * + * @return An uncurried function. + */ + public static <A, B, C, D, E> F<F<A, F<B, F<C, F<D, E>>>>, F4<A, B, C, D, E>> uncurryF4() { + return new F<F<A, F<B, F<C, F<D, E>>>>, F4<A, B, C, D, E>>() { + public F4<A, B, C, D, E> f(final F<A, F<B, F<C, F<D, E>>>> f) { + return uncurryF4(f); + } + }; + } + + /** + * Uncurry a function of arity-4. + * + * @param f The function to uncurry. + * @return An uncurried function. + */ + public static <A, B, C, D, E> F4<A, B, C, D, E> uncurryF4(final F<A, F<B, F<C, F<D, E>>>> f) { + return new F4<A, B, C, D, E>() { + public E f(final A a, final B b, final C c, final D d) { + return f.f(a).f(b).f(c).f(d); + } + }; + } + + /** + * Curry a function of arity-5. + * + * @param f The function to curry. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$> F<A, F<B, F<C, F<D, F<E, F$>>>>> curry(final F5<A, B, C, D, E, F$> f) { + return new F<A, F<B, F<C, F<D, F<E, F$>>>>>() { + public F<B, F<C, F<D, F<E, F$>>>> f(final A a) { + return new F<B, F<C, F<D, F<E, F$>>>>() { + public F<C, F<D, F<E, F$>>> f(final B b) { + return new F<C, F<D, F<E, F$>>>() { + public F<D, F<E, F$>> f(final C c) { + return new F<D, F<E, F$>>() { + public F<E, F$> f(final D d) { + return new F<E, F$>() { + public F$ f(final E e) { + return f.f(a, b, c, d, e); + } + }; + } + }; + } + }; + } + }; + } + }; + } + + /** + * Curry a function of arity-5. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$> F<B, F<C, F<D, F<E, F$>>>> curry(final F5<A, B, C, D, E, F$> f, final A a) { + return curry(f).f(a); + } + + /** + * Curry a function of arity-5. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$> F<C, F<D, F<E, F$>>> curry(final F5<A, B, C, D, E, F$> f, final A a, final B b) { + return curry(f).f(a).f(b); + } + + /** + * Curry a function of arity-5. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$> F<D, F<E, F$>> curry(final F5<A, B, C, D, E, F$> f, final A a, final B b, + final C c) { + return curry(f).f(a).f(b).f(c); + } + + /** + * Curry a function of arity-5. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @param d An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$> F<E, F$> curry(final F5<A, B, C, D, E, F$> f, final A a, final B b, final C c, + final D d) { + return curry(f).f(a).f(b).f(c).f(d); + } + + /** + * Uncurry a function of arity-5. + * + * @return An uncurried function. + */ + public static <A, B, C, D, E, F$> F<F<A, F<B, F<C, F<D, F<E, F$>>>>>, F5<A, B, C, D, E, F$>> uncurryF5() { + return new F<F<A, F<B, F<C, F<D, F<E, F$>>>>>, F5<A, B, C, D, E, F$>>() { + public F5<A, B, C, D, E, F$> f(final F<A, F<B, F<C, F<D, F<E, F$>>>>> f) { + return uncurryF5(f); + } + }; + } + + /** + * Uncurry a function of arity-6. + * + * @param f The function to uncurry. + * @return An uncurried function. + */ + public static <A, B, C, D, E, F$> F5<A, B, C, D, E, F$> uncurryF5(final F<A, F<B, F<C, F<D, F<E, F$>>>>> f) { + return new F5<A, B, C, D, E, F$>() { + public F$ f(final A a, final B b, final C c, final D d, final E e) { + return f.f(a).f(b).f(c).f(d).f(e); + } + }; + } + + /** + * Curry a function of arity-6. + * + * @param f The function to curry. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G> F<A, F<B, F<C, F<D, F<E, F<F$, G>>>>>> curry(final F6<A, B, C, D, E, F$, G> f) { + return new F<A, F<B, F<C, F<D, F<E, F<F$, G>>>>>>() { + public F<B, F<C, F<D, F<E, F<F$, G>>>>> f(final A a) { + return new F<B, F<C, F<D, F<E, F<F$, G>>>>>() { + public F<C, F<D, F<E, F<F$, G>>>> f(final B b) { + return new F<C, F<D, F<E, F<F$, G>>>>() { + public F<D, F<E, F<F$, G>>> f(final C c) { + return new F<D, F<E, F<F$, G>>>() { + public F<E, F<F$, G>> f(final D d) { + return new F<E, F<F$, G>>() { + public F<F$, G> f(final E e) { + return new F<F$, G>() { + public G f(final F$ f$) { + return f.f(a, b, c, d, e, f$); + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } + + /** + * Uncurry a function of arity-6. + * + * @return An uncurried function. + */ + public static <A, B, C, D, E, F$, G> F<F<A, F<B, F<C, F<D, F<E, F<F$, G>>>>>>, F6<A, B, C, D, E, F$, G>> uncurryF6() { + return new F<F<A, F<B, F<C, F<D, F<E, F<F$, G>>>>>>, F6<A, B, C, D, E, F$, G>>() { + public F6<A, B, C, D, E, F$, G> f(final F<A, F<B, F<C, F<D, F<E, F<F$, G>>>>>> f) { + return uncurryF6(f); + } + }; + } + + /** + * Uncurry a function of arity-6. + * + * @param f The function to uncurry. + * @return An uncurried function. + */ + public static <A, B, C, D, E, F$, G> F6<A, B, C, D, E, F$, G> uncurryF6( + final F<A, F<B, F<C, F<D, F<E, F<F$, G>>>>>> f) { + return new F6<A, B, C, D, E, F$, G>() { + public G f(final A a, final B b, final C c, final D d, final E e, final F$ f$) { + return f.f(a).f(b).f(c).f(d).f(e).f(f$); + } + }; + } + + /** + * Curry a function of arity-7. + * + * @param f The function to curry. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H> F<A, F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>>> curry( + final F7<A, B, C, D, E, F$, G, H> f) { + return new F<A, F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>>>() { + public F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>> f(final A a) { + return new F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>>() { + public F<C, F<D, F<E, F<F$, F<G, H>>>>> f(final B b) { + return new F<C, F<D, F<E, F<F$, F<G, H>>>>>() { + public F<D, F<E, F<F$, F<G, H>>>> f(final C c) { + return new F<D, F<E, F<F$, F<G, H>>>>() { + public F<E, F<F$, F<G, H>>> f(final D d) { + return new F<E, F<F$, F<G, H>>>() { + public F<F$, F<G, H>> f(final E e) { + return new F<F$, F<G, H>>() { + public F<G, H> f(final F$ f$) { + return new F<G, H>() { + public H f(final G g) { + return f.f(a, b, c, d, e, f$, g); + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } + + /** + * Curry a function of arity-7. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H> F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>> curry( + final F7<A, B, C, D, E, F$, G, H> f, final A a) { + return curry(f).f(a); + } + + /** + * Curry a function of arity-7. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H> F<C, F<D, F<E, F<F$, F<G, H>>>>> curry(final F7<A, B, C, D, E, F$, G, H> f, + final A a, final B b) { + return curry(f).f(a).f(b); + } + + /** + * Curry a function of arity-7. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H> F<D, F<E, F<F$, F<G, H>>>> curry(final F7<A, B, C, D, E, F$, G, H> f, + final A a, final B b, final C c) { + return curry(f).f(a).f(b).f(c); + } + + /** + * Curry a function of arity-7. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @param d An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H> F<E, F<F$, F<G, H>>> curry(final F7<A, B, C, D, E, F$, G, H> f, final A a, + final B b, final C c, final D d) { + return curry(f).f(a).f(b).f(c).f(d); + } + + /** + * Curry a function of arity-7. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @param d An argument to the curried function. + * @param e An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H> F<F$, F<G, H>> curry(final F7<A, B, C, D, E, F$, G, H> f, final A a, + final B b, final C c, final D d, final E e) { + return curry(f).f(a).f(b).f(c).f(d).f(e); + } + + /** + * Curry a function of arity-7. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @param d An argument to the curried function. + * @param e An argument to the curried function. + * @param f$ An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H> F<G, H> curry(final F7<A, B, C, D, E, F$, G, H> f, final A a, final B b, + final C c, final D d, final E e, final F$ f$) { + return curry(f).f(a).f(b).f(c).f(d).f(e).f(f$); + } + + /** + * Uncurry a function of arity-7. + * + * @return An uncurried function. + */ + public static <A, B, C, D, E, F$, G, H> F<F<A, F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>>>, F7<A, B, C, D, E, F$, G, H>> uncurryF7() { + return new F<F<A, F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>>>, F7<A, B, C, D, E, F$, G, H>>() { + public F7<A, B, C, D, E, F$, G, H> f(final F<A, F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>>> f) { + return uncurryF7(f); + } + }; + } + + /** + * Uncurry a function of arity-7. + * + * @param f The function to uncurry. + * @return An uncurried function. + */ + public static <A, B, C, D, E, F$, G, H> F7<A, B, C, D, E, F$, G, H> uncurryF7( + final F<A, F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>>> f) { + return new F7<A, B, C, D, E, F$, G, H>() { + public H f(final A a, final B b, final C c, final D d, final E e, final F$ f$, final G g) { + return f.f(a).f(b).f(c).f(d).f(e).f(f$).f(g); + } + }; + } + + /** + * Curry a function of arity-8. + * + * @param f The function to curry. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<A, F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>>> curry( + final F8<A, B, C, D, E, F$, G, H, I> f) { + return new F<A, F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>>>() { + public F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>> f(final A a) { + return new F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>>() { + public F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>> f(final B b) { + return new F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>() { + public F<D, F<E, F<F$, F<G, F<H, I>>>>> f(final C c) { + return new F<D, F<E, F<F$, F<G, F<H, I>>>>>() { + public F<E, F<F$, F<G, F<H, I>>>> f(final D d) { + return new F<E, F<F$, F<G, F<H, I>>>>() { + public F<F$, F<G, F<H, I>>> f(final E e) { + return new F<F$, F<G, F<H, I>>>() { + public F<G, F<H, I>> f(final F$ f$) { + return new F<G, F<H, I>>() { + public F<H, I> f(final G g) { + return new F<H, I>() { + public I f(final H h) { + return f.f(a, b, c, d, e, f$, g, h); + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } + + /** + * Curry a function of arity-8. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>> curry( + final F8<A, B, C, D, E, F$, G, H, I> f, final A a) { + return curry(f).f(a); + } + + /** + * Curry a function of arity-8. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>> curry( + final F8<A, B, C, D, E, F$, G, H, I> f, final A a, final B b) { + return curry(f).f(a).f(b); + } + + /** + * Curry a function of arity-8. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<D, F<E, F<F$, F<G, F<H, I>>>>> curry( + final F8<A, B, C, D, E, F$, G, H, I> f, final A a, final B b, final C c) { + return curry(f).f(a).f(b).f(c); + } + + /** + * Curry a function of arity-8. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @param d An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<E, F<F$, F<G, F<H, I>>>> curry(final F8<A, B, C, D, E, F$, G, H, I> f, + final A a, final B b, final C c, + final D d) { + return curry(f).f(a).f(b).f(c).f(d); + } + + /** + * Curry a function of arity-8. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @param d An argument to the curried function. + * @param e An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<F$, F<G, F<H, I>>> curry(final F8<A, B, C, D, E, F$, G, H, I> f, + final A a, final B b, final C c, final D d, + final E e) { + return curry(f).f(a).f(b).f(c).f(d).f(e); + } + + /** + * Curry a function of arity-8. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @param d An argument to the curried function. + * @param e An argument to the curried function. + * @param f$ An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<G, F<H, I>> curry(final F8<A, B, C, D, E, F$, G, H, I> f, final A a, + final B b, final C c, final D d, final E e, + final F$ f$) { + return curry(f).f(a).f(b).f(c).f(d).f(e).f(f$); + } + + /** + * Curry a function of arity-7. + * + * @param f The function to curry. + * @param a An argument to the curried function. + * @param b An argument to the curried function. + * @param c An argument to the curried function. + * @param d An argument to the curried function. + * @param e An argument to the curried function. + * @param f$ An argument to the curried function. + * @param g An argument to the curried function. + * @return A curried form of the given function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<H, I> curry(final F8<A, B, C, D, E, F$, G, H, I> f, final A a, final B b, + final C c, final D d, final E e, final F$ f$, final G g) { + return curry(f).f(a).f(b).f(c).f(d).f(e).f(f$).f(g); + } + + /** + * Uncurry a function of arity-8. + * + * @return An uncurried function. + */ + public static <A, B, C, D, E, F$, G, H, I> F<F<A, F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>>>, F8<A, B, C, D, E, F$, G, H, I>> uncurryF8() { + return new F<F<A, F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>>>, F8<A, B, C, D, E, F$, G, H, I>>() { + public F8<A, B, C, D, E, F$, G, H, I> f(final F<A, F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>>> f) { + return uncurryF8(f); + } + }; + } + + /** + * Uncurry a function of arity-8. + * + * @param f The function to uncurry. + * @return An uncurried function. + */ + public static <A, B, C, D, E, F$, G, H, I> F8<A, B, C, D, E, F$, G, H, I> uncurryF8( + final F<A, F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>>> f) { + return new F8<A, B, C, D, E, F$, G, H, I>() { + public I f(final A a, final B b, final C c, final D d, final E e, final F$ f$, final G g, final H h) { + return f.f(a).f(b).f(c).f(d).f(e).f(f$).f(g).f(h); + } + }; + } + + /** + * Binds the function in the second argument to the function in the first argument. + * + * @param ma A function whose argument type is the same as the argument type of the return value. + * @param f A function whose argument type is the same as the return type of <em>ma</em>, + * and yields the return value. + * @return A function that chains the given functions together such that the result of applying + * <em>ma</em> to the argument is given to <i>f</i>, yielding a function + * that is applied to the argument again. + */ + public static <A, B, C> F<C, B> bind(final F<C, A> ma, final F<A, F<C, B>> f) { + return new F<C, B>() { + public B f(final C m) { + return f.f(ma.f(m)).f(m); + } + }; + } + + /** + * Performs function application within a higher-order function (applicative functor pattern). + * + * @param cab The higher-order function to apply a function to. + * @param ca A function to apply within a higher-order function. + * @return A new function after applying the given higher-order function to the given function. + */ + public static <A, B, C> F<C, B> apply(final F<C, F<A, B>> cab, final F<C, A> ca) { + return bind(cab, new F<F<A, B>, F<C, B>>() { + public F<C, B> f(final F<A, B> f) { + return compose(new F<A, B>() { + public B f(final A a) { + return f.f(a); + } + }, ca); + } + }); + } + + /** + * Binds the given function <em>f</em> to the values of the given functions, with a final join. + * + * @param ca A function to bind <em>f</em> function to. + * @param cb A function to bind <em>f</em> function to. + * @param f The bound function to be composed with <em>ca</em> and then applied with <em>cb</em> + * @return A new function after performing the composition, then application. + */ + public static <A, B, C, D> F<D, C> bind(final F<D, A> ca, final F<D, B> cb, final F<A, F<B, C>> f) { + return apply(compose(f, ca), cb); + } + + /** + * Applies a given function over the arguments of another function of arity-2. + * + * @param a The function whose arguments to apply another function over. + * @param f The function to apply over the arguments of another function. + * @return A function whose arguments are fed through function f, before being passed to function a. + */ + public static <A, B, C> F<B, F<B, C>> on(final F<A, F<A, C>> a, final F<B, A> f) { + return compose(compose(Function.<B, A, C>andThen().f(f), a), f); + } + + /** + * Promotes a function of arity-2 to a higher-order function. + * + * @param f The function to promote. + * @return A function of arity-2 promoted to compose with two functions. + */ + public static <A, B, C, D> F<F<D, A>, F<F<D, B>, F<D, C>>> lift(final F<A, F<B, C>> f) { + return curry(new F2<F<D, A>, F<D, B>, F<D, C>>() { + public F<D, C> f(final F<D, A> ca, final F<D, B> cb) { + return bind(ca, cb, f); + } + }); + } + + /** + * Joins two arguments of a function of arity-2 into one argument, yielding a function of arity-1. + * + * @param f A function whose arguments to join. + * @return A function of arity-1 whose argument is substituted for both parameters of <em>f</em>. + */ + public static <A, B> F<B, A> join(final F<B, F<B, A>> f) { + return bind(f, Function.<F<B, A>>identity()); + } + + + /** + * Partial application of the second argument to the supplied function to get a function of type + * <tt>A -> C</tt>. Same as <tt>flip(f).f(b)</tt>. + * + * @param f The function to partially apply. + * @param b The value to apply to the function. + * @return A new function based on <tt>f</tt> with its second argument applied. + */ + public static <A, B, C> F<A, C> partialApply2(final F<A, F<B, C>> f, final B b) { + return new F<A, C>() { + public C f(final A a) { + return uncurryF2(f).f(a, b); + } + }; + } + + /** + * Partial application of the third argument to the supplied function to get a function of type + * <tt>A -> B -> D</tt>. + * + * @param f The function to partially apply. + * @param c The value to apply to the function. + * @return A new function based on <tt>f</tt> with its third argument applied. + */ + public static <A, B, C, D> F<A, F<B, D>> partialApply3(final F<A, F<B, F<C, D>>> f, final C c) { + return new F<A, F<B, D>>() { + public F<B, D> f(final A a) { + return new F<B, D>() { + public D f(final B b) { + return uncurryF3(f).f(a, b, c); + } + }; + } + }; + } + + /** + * Partial application of the fourth argument to the supplied function to get a function of type + * <tt>A -> B -> C -> E</tt>. + * + * @param f The function to partially apply. + * @param d The value to apply to the function. + * @return A new function based on <tt>f</tt> with its fourth argument applied. + */ + public static <A, B, C, D, E> F<A, F<B, F<C, E>>> partialApply4(final F<A, F<B, F<C, F<D, E>>>> f, final D d) { + return new F<A, F<B, F<C, E>>>() { + public F<B, F<C, E>> f(final A a) { + return new F<B, F<C, E>>() { + public F<C, E> f(final B b) { + return new F<C, E>() { + public E f(final C c) { + return uncurryF4(f).f(a, b, c, d); + } + }; + } + }; + } + }; + } + + /** + * Partial application of the fifth argument to the supplied function to get a function of type + * <tt>A -> B -> C -> D -> F$</tt>. + * + * @param f The function to partially apply. + * @param e The value to apply to the function. + * @return A new function based on <tt>f</tt> with its fifth argument applied. + */ + public static <A, B, C, D, E, F$> F<A, F<B, F<C, F<D, F$>>>> partialApply5(final F<A, F<B, F<C, F<D, F<E, F$>>>>> f, + final E e) { + return new F<A, F<B, F<C, F<D, F$>>>>() { + public F<B, F<C, F<D, F$>>> f(final A a) { + return new F<B, F<C, F<D, F$>>>() { + public F<C, F<D, F$>> f(final B b) { + return new F<C, F<D, F$>>() { + public F<D, F$> f(final C c) { + return new F<D, F$>() { + public F$ f(final D d) { + return uncurryF5(f).f(a, b, c, d, e); + } + }; + } + }; + } + }; + } + }; + } + + /** + * Partial application of the sixth argument to the supplied function to get a function of type + * <tt>A -> B -> C -> D -> E -> G</tt>. + * + * @param f The function to partially apply. + * @param f$ The value to apply to the function. + * @return A new function based on <tt>f</tt> with its sixth argument applied. + */ + public static <A, B, C, D, E, F$, G> F<A, F<B, F<C, F<D, F<E, G>>>>> partialApply6( + final F<A, F<B, F<C, F<D, F<E, F<F$, G>>>>>> f, final F$ f$) { + return new F<A, F<B, F<C, F<D, F<E, G>>>>>() { + public F<B, F<C, F<D, F<E, G>>>> f(final A a) { + return new F<B, F<C, F<D, F<E, G>>>>() { + public F<C, F<D, F<E, G>>> f(final B b) { + return new F<C, F<D, F<E, G>>>() { + public F<D, F<E, G>> f(final C c) { + return new F<D, F<E, G>>() { + public F<E, G> f(final D d) { + return new F<E, G>() { + public G f(final E e) { + return uncurryF6(f).f(a, b, c, d, e, f$); + } + }; + } + }; + } + }; + } + }; + } + }; + } + + /** + * Partial application of the seventh argument to the supplied function to get a function of type + * <tt>A -> B -> C -> D -> E -> F$ -> H</tt>. + * + * @param f The function to partially apply. + * @param g The value to apply to the function. + * @return A new function based on <tt>f</tt> with its seventh argument applied. + */ + public static <A, B, C, D, E, F$, G, H> F<A, F<B, F<C, F<D, F<E, F<F$, H>>>>>> partialApply7( + final F<A, F<B, F<C, F<D, F<E, F<F$, F<G, H>>>>>>> f, final G g) { + return new F<A, F<B, F<C, F<D, F<E, F<F$, H>>>>>>() { + public F<B, F<C, F<D, F<E, F<F$, H>>>>> f(final A a) { + return new F<B, F<C, F<D, F<E, F<F$, H>>>>>() { + public F<C, F<D, F<E, F<F$, H>>>> f(final B b) { + return new F<C, F<D, F<E, F<F$, H>>>>() { + public F<D, F<E, F<F$, H>>> f(final C c) { + return new F<D, F<E, F<F$, H>>>() { + public F<E, F<F$, H>> f(final D d) { + return new F<E, F<F$, H>>() { + public F<F$, H> f(final E e) { + return new F<F$, H>() { + public H f(final F$ f$) { + return uncurryF7(f).f(a, b, c, d, e, f$, g); + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } + + /** + * Partial application of the eigth argument to the supplied function to get a function of type + * <tt>A -> B -> C -> D -> E -> F$ -> G -> I</tt>. + * + * @param f The function to partially apply. + * @param h The value to apply to the function. + * @return A new function based on <tt>f</tt> with its eigth argument applied. + */ + public static <A, B, C, D, E, F$, G, H, I> F<A, F<B, F<C, F<D, F<E, F<F$, F<G, I>>>>>>> partialApply8( + final F<A, F<B, F<C, F<D, F<E, F<F$, F<G, F<H, I>>>>>>>> f, final H h) { + return new F<A, F<B, F<C, F<D, F<E, F<F$, F<G, I>>>>>>>() { + public F<B, F<C, F<D, F<E, F<F$, F<G, I>>>>>> f(final A a) { + return new F<B, F<C, F<D, F<E, F<F$, F<G, I>>>>>>() { + public F<C, F<D, F<E, F<F$, F<G, I>>>>> f(final B b) { + return new F<C, F<D, F<E, F<F$, F<G, I>>>>>() { + public F<D, F<E, F<F$, F<G, I>>>> f(final C c) { + return new F<D, F<E, F<F$, F<G, I>>>>() { + public F<E, F<F$, F<G, I>>> f(final D d) { + return new F<E, F<F$, F<G, I>>>() { + public F<F$, F<G, I>> f(final E e) { + return new F<F$, F<G, I>>() { + public F<G, I> f(final F$ f$) { + return new F<G, I>() { + public I f(final G g) { + return uncurryF8(f).f(a, b, c, d, e, f$, g, h); + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } + }; + } +}