mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-10-26 14:05:36 +03:00
8 lines
181 B
Plaintext
8 lines
181 B
Plaintext
C_z = λs λz z
|
|
C_s = λk λs let {s0 s1} = s; λz (s0 (k s1 z))
|
|
Z = λs λz z
|
|
S = λk λs λz (s k)
|
|
C_1 = λs λz (s z)
|
|
C_2 = λs let {s0 s1} = s; λz (s0 (s1 z))
|
|
main = (C_2 S Z)
|