25 lines
348 B
AppleScript
25 lines
348 B
AppleScript
|
-- Compose two functions where each function is
|
||
|
|
-- a script object with a call(x) handler.
|
||
|
|
on compose(f, g)
|
||
|
|
script
|
||
|
|
on call(x)
|
||
|
|
f's call(g's call(x))
|
||
|
|
end call
|
||
|
|
end script
|
||
|
|
end compose
|
||
|
|
|
||
|
|
script sqrt
|
||
|
|
on call(x)
|
||
|
|
x ^ 0.5
|
||
|
|
end call
|
||
|
|
end script
|
||
|
|
|
||
|
|
script twice
|
||
|
|
on call(x)
|
||
|
|
2 * x
|
||
|
|
end call
|
||
|
|
end script
|
||
|
|
|
||
|
|
compose(sqrt, twice)'s call(32)
|
||
|
|
-- Result: 8.0
|