11 lines
241 B
Text
11 lines
241 B
Text
|
Module CheckIt {
|
||
|
|
Compose = lambda (f, g)->{
|
||
|
|
=lambda f, g (x)->f(g(x))
|
||
|
|
}
|
||
|
|
Add5=lambda (x)->x+5
|
||
|
|
Division2=lambda (x)->x/2
|
||
|
|
Add5Div2=compose(Division2, Add5)
|
||
|
|
Print Add5Div2(15)=10 ' True
|
||
|
|
}
|
||
|
|
CheckIt
|