mirror of
https://github.com/github/semantic.git
synced 2024-11-30 14:47:30 +03:00
20 lines
271 B
Swift
20 lines
271 B
Swift
func fix<T, U>(f: (T -> U) -> T -> U) -> T -> U {
|
|
return { f(fix(f))($0) }
|
|
}
|
|
|
|
|
|
func const<A, B>(a: A)(_ b: B) -> A {
|
|
return a
|
|
}
|
|
|
|
|
|
infix operator >>> {
|
|
associativity right
|
|
precedence 170
|
|
}
|
|
|
|
func >>> <T, U, V> (f: T -> U, g: U -> V) -> T -> V {
|
|
return { g(f($0)) }
|
|
}
|
|
|