package com.tomuvak.util.sequences

/**
 * Returns a list of sequences, each of which is the result of running the corresponding transform (of the given
 * [transforms]) on a sequence equivalent to (that is comprising the same elements as) the receiver sequence [this].
 * Iterating over (any or all of) the returned sequences in full or in part will iterate the original sequence [this] at
 * most once, and at no point further than is required in order to yield the elements (of the returned sequences)
 * iterated over until that point.
 *
 * None of the given [transforms] is allowed to iterate its input sequence more than once. For typical use cases that
 * also implies none of the returned sequences can be iterated multiple times, though that really depends on the
 * transforms themselves: a transform is allowed to return any sequence, not each iteration of which necessarily
 * requiring (re)iteration of the original sequence (just as one example, the transform may cache its input and/or
 * output).
 *
 * This operation is _intermediate_ and _stateful_.
 */
fun <T, R> Sequence<T>.transform(transforms: List<(Sequence<T>) -> Sequence<R>>): List<Sequence<R>> =
    MultiTransformSequences(this, transforms).transformedSequences

private class MultiTransformSequences<T, R>(source: Sequence<T>, transforms: List<(Sequence<T>) -> Sequence<R>>) {
    private val cached = source.cached(transforms.size)
    val transformedSequences: List<Sequence<R>> = transforms.map { it(cached.constrainOnce()) }
}

/**
 * Partitions the receiver sequence [this] into a pair of sequences, the `first` of which containing all elements which
 * satisfy the given [predicate], and the `second` one those elements which don't. Each of the returned sequences can
 * only be iterated over once.
 *
 * Similar to the standard library's [partition], but returns a pair of [Sequence]s rather than [List]s, and does not at
 * any point iterate the original sequence further than is necessary in order to yield the elements iterated over (in
 * the returned sequences) until that point.
 *
 * This operation is _intermediate_ (hence the name) and _stateful_ (as opposed to the standard library's [partition],
 * which is _terminal_).
 */
fun <T> Sequence<T>.partitionIntermediate(predicate: (T) -> Boolean): Pair<Sequence<T>, Sequence<T>> =
    map { it to predicate(it) }.transform(listOf(
        { it.filter { it.second } },
        { it.filterNot {it.second } }
    )).map { it.map { it.first } }.let { Pair(it[0], it[1]) }

/**
 * Returns a pair of sequences, the `first` of which containing the `first` components of the elements of the receiver
 * sequence [this], and the `second` one the `second` components thereof. Each of the returned sequences can only be
 * iterated over once.
 *
 * Similar to the standard library's [unzip], but returns a pair of [Sequence]s rather than [List]s, and does not at any
 * point iterate the original sequence further than is necessary in order to yield the elements iterated over (in the
 * returned sequences) until that point.
 *
 * This operation is _intermediate_ (hence the name) and _stateful_ (as opposed to the standard library's [unzip], which
 * is _terminal_).
 */
fun <T1, T2> Sequence<Pair<T1, T2>>.unzipIntermediate(): Pair<Sequence<T1>, Sequence<T2>> = transform(listOf(
    { it.map { it.first } },
    { it.map { it.second } }
)).let { @Suppress("UNCHECKED_CAST") Pair(it[0] as Sequence<T1>, it[1] as Sequence<T2>) }

package com.tomuvak.util.sequences

/**
 * Returns a list of sequences, each of which is the result of running the corresponding transform (of the given
 * [transforms]) on a sequence equivalent to (that is comprising the same elements as) the receiver sequence [this].
 * Iterating over (any or all of) the returned sequences in full or in part will iterate the original sequence [this] at
 * most once, and at no point further than is required in order to yield the elements (of the returned sequences)
 * iterated over until that point.
 *
 * None of the given [transforms] is allowed to iterate its input sequence more than once. For typical use cases that
 * also implies none of the returned sequences can be iterated multiple times, though that really depends on the
 * transforms themselves: a transform is allowed to return any sequence, not each iteration of which necessarily
 * requiring (re)iteration of the original sequence (just as one example, the transform may cache its input and/or
 * output).
 *
 * This operation is _intermediate_ and _stateful_.
 */
fun <T, R> Sequence<T>.transform(transforms: List<(Sequence<T>) -> Sequence<R>>): List<Sequence<R>> =
    MultiTransformSequences(this, transforms).transformedSequences

private class MultiTransformSequences<T, R>(source: Sequence<T>, transforms: List<(Sequence<T>) -> Sequence<R>>) {
    private val cached = source.cached(transforms.size)
    val transformedSequences: List<Sequence<R>> = transforms.map { it(cached.constrainOnce()) }
}

/**
 * Partitions the receiver sequence [this] into a pair of sequences, the `first` of which containing all elements which
 * satisfy the given [predicate], and the `second` one those elements which don't. Each of the returned sequences can
 * only be iterated over once.
 *
 * Similar to the standard library's [partition], but returns a pair of [Sequence]s rather than [List]s, and does not at
 * any point iterate the original sequence further than is necessary in order to yield the elements iterated over (in
 * the returned sequences) until that point.
 *
 * This operation is _intermediate_ (hence the name) and _stateful_ (as opposed to the standard library's [partition],
 * which is _terminal_).
 */
fun <T> Sequence<T>.partitionIntermediate(predicate: (T) -> Boolean): Pair<Sequence<T>, Sequence<T>> =
    map { it to predicate(it) }.transform(listOf(
        { it.filter { it.second } },
        { it.filterNot {it.second } }
    )).map { it.map { it.first } }.let { Pair(it[0], it[1]) }

/**
 * Returns a pair of sequences, the `first` of which containing the `first` components of the elements of the receiver
 * sequence [this], and the `second` one the `second` components thereof. Each of the returned sequences can only be
 * iterated over once.
 *
 * Similar to the standard library's [unzip], but returns a pair of [Sequence]s rather than [List]s, and does not at any
 * point iterate the original sequence further than is necessary in order to yield the elements iterated over (in the
 * returned sequences) until that point.
 *
 * This operation is _intermediate_ (hence the name) and _stateful_ (as opposed to the standard library's [unzip], which
 * is _terminal_).
 */
fun <T1, T2> Sequence<Pair<T1, T2>>.unzipIntermediate(): Pair<Sequence<T1>, Sequence<T2>> = transform(listOf(
    { it.map { it.first } },
    { it.map { it.second } }
)).let { @Suppress("UNCHECKED_CAST") Pair(it[0] as Sequence<T1>, it[1] as Sequence<T2>) }
