Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

#266: Alias constructors for applicative builders for Try, Eval, IO #278

Merged
merged 4 commits into from
Sep 15, 2017
Merged

#266: Alias constructors for applicative builders for Try, Eval, IO #278

Show file tree
Hide file tree
Changes from 2 commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
34570b3
#266: Merge master
anstaendig Sep 15, 2017
7230dd6
#266: Reformat code to make style check happy
anstaendig Sep 15, 2017
b57e8d7
#266: Rename parallel to merge for Try, IO
anstaendig Sep 15, 2017
4a48f7f
#266: Refactor code style
anstaendig Sep 15, 2017
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
Binary file modified gradle/wrapper/gradle-wrapper.jar
View file
Open in desktop
Binary file not shown.
2 changes: 1 addition & 1 deletion gradle/wrapper/gradle-wrapper.properties
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
#Sun Jun 25 18:21:54 BST 2017
#Mon Sep 11 16:05:40 EEST 2017
distributionBase=GRADLE_USER_HOME
distributionPath=wrapper/dists
zipStoreBase=GRADLE_USER_HOME
Expand Down
205 changes: 165 additions & 40 deletions kategory-core/src/main/kotlin/kategory/data/Eval.kt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -31,6 +31,171 @@ package kategory
@deriving(Functor::class, Applicative::class, Monad::class)
sealed class Eval<out A> : EvalKind<A> {

companion object {

fun <A, B> tailRecM(a: A, f: (A) -> EvalKind<Either<A, B>>): Eval<B> =
f(a).ev().flatMap { eval: Either<A, B> ->
when (eval) {
is Either.Left -> tailRecM(eval.a, f)
is Either.Right -> pure(eval.b)
}
}

fun <A> pure(a: A): Eval<A> = Eval.now(a)

@JvmStatic
fun <A> now(a: A) = Now(a)

@JvmStatic
fun <A> later(f: () -> A) = Later(f)

@JvmStatic
fun <A> always(f: () -> A) = Always(f)

@JvmStatic
fun <A> defer(f: () -> Eval<A>): Eval<A> = Call(f)

@JvmStatic
fun raise(t: Throwable): Eval<Nothing> = defer { throw t }

@JvmStatic
val Unit: Eval<Unit> = Now(kotlin.Unit)
@JvmStatic
val True: Eval<Boolean> = Now(true)
@JvmStatic
val False: Eval<Boolean> = Now(false)
@JvmStatic
val Zero: Eval<Int> = Now(0)
@JvmStatic
val One: Eval<Int> = Now(1)

fun <A, B> merge(
op1: () -> A,
op2: () -> B): Eval<Tuple2<A, B>> = applicative().tupled(
later(op1),
later(op2)).ev()

fun <A, B, C> merge(
op1: () -> A,
op2: () -> B,
op3: () -> C): Eval<Tuple3<A, B, C>> = applicative().tupled(
later(op1),
later(op2),
later(op3)).ev()

fun <A, B, C, D> merge(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D): Eval<Tuple4<A, B, C, D>> = applicative().tupled(
later(op1),
later(op2),
later(op3),
later(op4)).ev()

fun <A, B, C, D, E> merge(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E): Eval<Tuple5<A, B, C, D, E>> = applicative().tupled(
later(op1),
later(op2),
later(op3),
later(op4),
later(op5)).ev()

fun <A, B, C, D, E, F> merge(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F): Eval<Tuple6<A, B, C, D, E, F>> = applicative().tupled(
later(op1),
later(op2),
later(op3),
later(op4),
later(op5),
later(op6)).ev()

fun <A, B, C, D, E, F, G> merge(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F,
op7: () -> G): Eval<Tuple7<A, B, C, D, E, F, G>> = applicative().tupled(
later(op1),
later(op2),
later(op3),
later(op4),
later(op5),
later(op6),
later(op7)).ev()

fun <A, B, C, D, E, F, G, H> merge(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F,
op7: () -> G,
op8: () -> H): Eval<Tuple8<A, B, C, D, E, F, G, H>> = applicative().tupled(
later(op1),
later(op2),
later(op3),
later(op4),
later(op5),
later(op6),
later(op7),
later(op8)).ev()

fun <A, B, C, D, E, F, G, H, I> merge(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F,
op7: () -> G,
op8: () -> H,
op9: () -> I): Eval<Tuple9<A, B, C, D, E, F, G, H, I>> = applicative().tupled(
later(op1),
later(op2),
later(op3),
later(op4),
later(op5),
later(op6),
later(op7),
later(op8),
later(op9)).ev()

fun <A, B, C, D, E, F, G, H, I, J> merge(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F,
op7: () -> G,
op8: () -> H,
op9: () -> I,
op10: () -> J): Eval<Tuple10<A, B, C, D, E, F, G, H, I, J>> = applicative().tupled(
later(op1),
later(op2),
later(op3),
later(op4),
later(op5),
later(op6),
later(op7),
later(op8),
later(op9),
later(op10)).ev()
}

abstract fun value(): A

abstract fun memoize(): Eval<A>
Expand Down Expand Up @@ -182,44 +347,4 @@ sealed class Eval<out A> : EvalKind<A> {
return curr.value()
}
}

companion object {

fun <A, B> tailRecM(a: A, f: (A) -> EvalKind<Either<A, B>>): Eval<B> =
f(a).ev().flatMap { eval: Either<A, B> ->
when (eval) {
is Either.Left -> tailRecM(eval.a, f)
is Either.Right -> pure(eval.b)
}
}

fun <A> pure(a: A): Eval<A> = Eval.now(a)

@JvmStatic
fun <A> now(a: A) = Now(a)

@JvmStatic
fun <A> later(f: () -> A) = Later(f)

@JvmStatic
fun <A> always(f: () -> A) = Always(f)

@JvmStatic
fun <A> defer(f: () -> Eval<A>): Eval<A> = Call(f)

@JvmStatic
fun raise(t: Throwable): Eval<Nothing> = defer { throw t }

@JvmStatic
val Unit: Eval<Unit> = Now(kotlin.Unit)
@JvmStatic
val True: Eval<Boolean> = Now(true)
@JvmStatic
val False: Eval<Boolean> = Now(false)
@JvmStatic
val Zero: Eval<Int> = Now(0)
@JvmStatic
val One: Eval<Int> = Now(1)

}
}
125 changes: 125 additions & 0 deletions kategory-core/src/main/kotlin/kategory/data/Try.kt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -34,6 +34,131 @@ sealed class Try<out A> : TryKind<A> {
fun monadError(): TryMonadErrorInstance =
TryMonadErrorInstanceImplicits.instance()

fun <A, B> parallel(
op1: () -> A,
op2: () -> B): Try<Tuple2<A, B>> = applicative().tupled(
invoke(op1),
invoke(op2)).ev()

fun <A, B, C> parallel(
op1: () -> A,
op2: () -> B,
op3: () -> C): Try<Tuple3<A, B, C>> = applicative().tupled(
invoke(op1),
invoke(op2),
invoke(op3)).ev()

fun <A, B, C, D> parallel(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D): Try<Tuple4<A, B, C, D>> = applicative().tupled(
invoke(op1),
invoke(op2),
invoke(op3),
invoke(op4)).ev()

fun <A, B, C, D, E> parallel(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E): Try<Tuple5<A, B, C, D, E>> = applicative().tupled(
invoke(op1),
invoke(op2),
invoke(op3),
invoke(op4),
invoke(op5)).ev()

fun <A, B, C, D, E, F> parallel(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F): Try<Tuple6<A, B, C, D, E, F>> = applicative().tupled(
invoke(op1),
invoke(op2),
invoke(op3),
invoke(op4),
invoke(op5),
invoke(op6)).ev()

fun <A, B, C, D, E, F, G> parallel(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F,
op7: () -> G): Try<Tuple7<A, B, C, D, E, F, G>> = applicative().tupled(
invoke(op1),
invoke(op2),
invoke(op3),
invoke(op4),
invoke(op5),
invoke(op6),
invoke(op7)).ev()

fun <A, B, C, D, E, F, G, H> parallel(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F,
op7: () -> G,
op8: () -> H): Try<Tuple8<A, B, C, D, E, F, G, H>> = applicative().tupled(
invoke(op1),
invoke(op2),
invoke(op3),
invoke(op4),
invoke(op5),
invoke(op6),
invoke(op7),
invoke(op8)).ev()

fun <A, B, C, D, E, F, G, H, I> parallel(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F,
op7: () -> G,
op8: () -> H,
op9: () -> I): Try<Tuple9<A, B, C, D, E, F, G, H, I>> = applicative().tupled(
invoke(op1),
invoke(op2),
invoke(op3),
invoke(op4),
invoke(op5),
invoke(op6),
invoke(op7),
invoke(op8),
invoke(op9)).ev()

fun <A, B, C, D, E, F, G, H, I, J> parallel(
op1: () -> A,
op2: () -> B,
op3: () -> C,
op4: () -> D,
op5: () -> E,
op6: () -> F,
op7: () -> G,
op8: () -> H,
op9: () -> I,
op10: () -> J): Try<Tuple10<A, B, C, D, E, F, G, H, I, J>> = applicative().tupled(
invoke(op1),
invoke(op2),
invoke(op3),
invoke(op4),
invoke(op5),
invoke(op6),
invoke(op7),
invoke(op8),
invoke(op9),
invoke(op10)).ev()
}

fun <G, B> traverse(f: (A) -> HK<G, B>, GA: Applicative<G>): HK<G, Try<B>> =
Expand Down