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

Implement coiteration.

Browse Source
This commit is contained in:
Rob Rix 2015-10-14 10:39:01 -04:00
parent fa2bfcd367
commit 961e9ae7d7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
prototype/Doubt/Cofree.swift
View File

@ -14,6 +14,11 @@ public enum Cofree<A, B> {
return rest
}
}
public static func coiterate(annotate: B -> Syntax<B, A>)(_ seed: B) -> Cofree {
return .Unroll(seed, annotate(seed).map(coiterate(annotate)))
}
}