8 lines
137 B
Text
8 lines
137 B
Text
|
compose = { f, g | { x | f g x } }
|
||
|
|
|
||
|
|
#Test
|
||
|
|
add1 = { x | x + 1 }
|
||
|
|
double = { x | x * 2 }
|
||
|
|
b = compose(->double ->add1)
|
||
|
|
p b 1 #should print 4
|