Closures/Value capture: Difference between revisions
→{{header|AppleScript}}: Updated primitives
m (→{{header|Sidef}}: updated code) |
(→{{header|AppleScript}}: Updated primitives) |
||
Line 84:
=={{header|AppleScript}}==
{{trans|JavaScript}}
<lang AppleScript>on run
set fns to {}
Line 94 ⟶ 92:
end repeat
end run
on closure(x)
script
on
end
end script
end closure</lang>
{{Out}}
<pre>9</pre>
Or, in a more functional pattern of composition:
<lang AppleScript>-- CLOSURE --------------------------------------------------------------------
lambda() of (item 3 of (map(closure, range(1, 10))))▼
on |λ|(x)
end script▼
end |λ|
end script
▲ script
▲ on lambda()
▲ return x * x
▲ end lambda
▲ end script
▲end closure
-- GENERIC FUNCTIONS ----------------------------------------------------------
-- enumFromTo :: Int -> Int -> [Int]
on enumFromTo(m, n)
if n < m then
set d to -1
▲ else
set d to 1
end if
repeat with i from m to n by d
set end of lst to i
end repeat
return lst▼
end enumFromTo
-- map :: (a -> b) -> [a] -> [b]
on map(f, xs)
repeat with i from 1 to lng
▲ set lng to length of xs
set end of lst to
end
▲ return lst
end map
-- Lift 2nd class handler function into 1st class script wrapper
--
on
end
end
{{Out}}
<pre>9</pre>
|