TryPartition.kt

typealias ResultSet<T> = Pair<List<Success<T>>, List<Failure<T>>>

fun <T> List<Try<T>>.asResultSet(): ResultSet<T> = this.partition { it is Success } as ResultSet<T>

fun <T, R> ResultSet<T>.map(transform: (T) -> R): ResultSet<R> =
    this.first.map { it.map(transform) }.asResultSet().let { result ->
        Pair(result.first, this.second as List<Failure<R>> + result.second)
    }