mirror of
https://github.com/github/semantic.git
synced 2024-12-01 00:33:59 +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)) }
|
||
|
|
}
|
||
|
|
|