github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

Remove Free.reduce.

Browse Source
This commit is contained in:
Rob Rix 2015-11-12 17:00:05 -05:00
parent 77e9778f91
commit b0054aee54
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
prototype/Doubt/Free.swift
View File

@ -57,22 +57,6 @@ public enum Free<Leaf, Annotation, Value>: CustomDebugStringConvertible {
}
/// Reduces the receiver top-down, left-to-right, starting from an `initial` value, and applying `combine` to successive values.
public func reduce(initial: Value, @noescape combine: (Value, Value) -> Value) -> Value {
return cata {
switch $1 {
case .Leaf:
return initial
case let .Indexed(a):
return a.reduce(initial, combine: combine)
case let .Fixed(a):
return a.reduce(initial, combine: combine)
case let .Keyed(a):
return a.values.reduce(initial, combine: combine)
}
}
}
/// Returns a function which sums `Free`s by first `transform`ing `Pure` values into integers, and then summing these.
public static func sum(@noescape transform: Value -> Int)(_ free: Free) -> Int {
return free.map(transform).cata {