RosettaCodeData/Task/Function-composition/Brat/function-composition.brat

8 lines
137 B
Plaintext

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