Closures/Value capture: Difference between revisions
→{{header|AppleScript}}
(→{{header|Clojure}}: Add implementation.) |
|||
Line 75:
Using partial parametrization as proposed in Algol Bulletin by Charles Lindsey. Algol68G does not support binding ''all'' actual parameters "partially" without deproceduring, so a PROC(BOOL)INT mode is used instead of a PROC INT. The variable ''captured i'' is passed twice, once by reference and once by value, to demonstrate that it is possible to capture both ways, and a little extra code is added to show that the closure can modify the captured variable.
=={{header|AppleScript}}==
{{trans|JavaScript}}
<lang AppleScript>on run
set fns to {}
repeat with i from 1 to 10
set end of fns to closure(i)
end repeat
lambda() of item 3 of fns
end run
on closure(x)
script
on lambda()
return x * x
end lambda
end script
end closure</lang>
{{Out}}
<pre>9</pre>
=={{header|Axiom}}==
| |||