如何在Swift中实现Haskell的splitEvery?

kfm*_*e04 3 haskell functional-programming range swift

问题

let x = (0..<10).splitEvery( 3 )
XCTAssertEqual( x, [(0...2),(3...5),(6...8),(9)], "implementation broken" )
Run Code Online (Sandbox Code Playgroud)

评论

我在计算Range等元素数量时遇到问题......

extension Range
{
    func splitEvery( nInEach: Int ) -> [Range]
    {
        let n = self.endIndex - self.startIndex // ERROR - cannot invoke '-' with an argument list of type (T,T)
    }
}
Run Code Online (Sandbox Code Playgroud)

Mar*_*n R 5

范围中的值是ForwardIndexType,因此您只能使用advance()它们或计算distance(),但-未定义减法.提前金额必须是相应的类型T.Distance.所以这将是一个可能的实现:

extension Range {
    func splitEvery(nInEach: T.Distance) -> [Range] {
        var result = [Range]() // Start with empty array
        var from  = self.startIndex
        while from != self.endIndex {
            // Advance position, but not beyond the end index:
            let to = advance(from, nInEach, self.endIndex)
            result.append(from ..< to)
            // Continue with next interval:
            from = to
        }
        return result
    }
}
Run Code Online (Sandbox Code Playgroud)

例:

println( (0 ..< 10).splitEvery(3) )
// Output: [0..<3, 3..<6, 6..<9, 9..<10]
Run Code Online (Sandbox Code Playgroud)

但请注意,这0 ..< 10不是整数的列表(或数组).要将数组拆分为子数组,您可以定义类似的扩展:

extension Array {
    func splitEvery(nInEach: Int) -> [[T]] {
        var result = [[T]]()
        for from in stride(from: 0, to: self.count, by: nInEach) {
            let to = advance(from, nInEach, self.count)
            result.append(Array(self[from ..< to]))
        }
        return result
    }
}
Run Code Online (Sandbox Code Playgroud)

例:

println( [1, 1, 2, 3, 5, 8, 13].splitEvery(3) )
// Output: [[1, 1, 2], [3, 5, 8], [13]]
Run Code Online (Sandbox Code Playgroud)

更通用的方法可以是拆分所有可切片对象.但Sliceable协议和协议不能扩展.你可以做的反而是定义一个函数,是以可切片的对象作为第一个参数:

func splitEvery<S : Sliceable>(seq : S, nInEach : S.Index.Distance) -> [S.SubSlice] { 
    var result : [S.SubSlice] = []

    var from  = seq.startIndex
    while from != seq.endIndex {
        let to = advance(from, nInEach, seq.endIndex)
        result.append(seq[from ..< to])
        from = to
    }
    return result
}
Run Code Online (Sandbox Code Playgroud)

(请注意,此函数与 上面定义的(扩展)方法完全无关.)

例:

println( splitEvery("abcdefg", 2) )
// Output: [ab, cd, ef, g]
println( splitEvery([3.1, 4.1, 5.9, 2.6, 5.3], 2) )
// Output: [[3.1, 4.1], [5.9, 2.6], [5.3]]
Run Code Online (Sandbox Code Playgroud)

范围不可切片,但您可以定义一个带范围参数的单独函数:

func splitEvery<T>(range : Range<T>, nInEach : T.Distance) -> [Range<T>] { 
    var result : [Range<T>] = []

    var from  = range.startIndex
    while from != range.endIndex {
        let to = advance(from, nInEach, range.endIndex)
        result.append(from ..< to)
        from = to
    }
    return result
}
Run Code Online (Sandbox Code Playgroud)

例:

println( splitEvery(0 ..< 10, 3) )
// Output: [0..<3, 3..<6, 6..<9, 9..<10]
Run Code Online (Sandbox Code Playgroud)