FP forwardCompose: andThen, andAlso

forwardCompose.kt

/**
 * Example: forward compose
 *
 *  see:
 *      - https://discuss.kotlinlang.org/t/pipe-forward-operator/2098/43
 *      - https://hackernoon.com/funktionale-function-composition-for-kotlin-1f6e3e3c3a83
 *
 *      val composition = ::sqrt thenAlso ::println then ::sqrt thenAlso ::println
 *      val result:Double = composition(16.0)
 */
infix fun <A, B, C> ((A) -> B).then(other: (B) -> C): (A) -> C = { other.invoke(this.invoke(it)) }

infix fun <A, B> ((A) -> B).thenAlso(other: (B) -> Unit): (A) -> B = this.then { it.also(other) }