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
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>
 
 
Or, in a more functional pattern of composition:
 
<lang AppleScript>-- CLOSURE --------------------------------------------------------------------
<lang AppleScript>on run
 
endscript closure
lambda() of (item 3 of (map(closure, range(1, 10))))
on |λ|(x)
end script
end run
on lambda|λ|()
return x * x
end lambda|λ|
end script
end |λ|
end script
 
lambda|λ|() of (item 3 of (map(closure, rangeenumFromTo(1, 10))))
on closure(x)
script
on lambda()
return x * x
end lambda
end script
end closure
 
 
-- GENERIC FUNCTIONS ----------------------------------------------------------
 
-- enumFromTo :: Int -> Int -> [Int]
-- GENERIC FUNCTIONS
on enumFromTo(m, n)
if n < m then
set d to -1
else
set d to 1
end if
set lnglst to length of xs{}
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)
scripttell mfmReturn(f)
propertyset lambdalng :to flength of xs
end script set lst to {}
repeat with i from 1 to lng
set lng to length of xs
set end of lst to {}|λ|(item i of xs, i, xs)
repeat with i from 1end to lngrepeat
set end ofreturn lst to mf's lambda(item i of xs, i, xs)
end repeattell
return lst
end map
 
-- Lift 2nd class handler function into 1st class script wrapper
 
-- rangemReturn :: IntHandler -> Int -> IntScript
on rangemReturn(m, nf)
setif lngclass toof (nf -is m)script + 1then
set base to m - 1f
set lst to {}else
repeat with i from 1 to lngscript
set end of lst toproperty i|λ| +: basef
end repeatscript
returnend lstif
end rangemReturn</lang>
 
</lang>
 
{{Out}}
 
<pre>9</pre>
 
9,659

edits