Topic variable: Difference between revisions
Content added Content deleted
(→{{header|AppleScript}}: Added illustration of 'result' bound to value of expression most recently evaluated in the current scope) |
(→{{header|AppleScript}}: second example, in which 'return' is bound to a script, rather than to a simple value) |
||
| Line 62: | Line 62: | ||
<pre>{9, 1.732050807569}</pre> |
<pre>{9, 1.732050807569}</pre> |
||
Result is still bound in this way if the most recently evaluated expression is a script rather than a simple object: |
|||
<lang applescript>on run |
|||
script |
|||
-- Apply the given function to the value 3 |
|||
on |λ|(f) |
|||
mReturn(f)'s |λ|(3) |
|||
end |λ| |
|||
end script |
|||
-- Here, 'result' is bound to the script above |
|||
map(result, {square, squareRoot}) |
|||
-- > {9, 1.732050807569} |
|||
end run |
|||
-- square :: Num a => a -> a |
|||
on square(x) |
|||
x * x |
|||
end square |
|||
-- squareRoot :: Num a, Float b => a -> b |
|||
on squareRoot(x) |
|||
x ^ 0.5 |
|||
end squareRoot |
|||
-- GENERIC FUNCTIONS ---------------------------------------------------------- |
|||
-- map :: (a -> b) -> [a] -> [b] |
|||
on map(f, xs) |
|||
tell mReturn(f) |
|||
set lng to length of xs |
|||
set lst to {} |
|||
repeat with i from 1 to lng |
|||
set end of lst to |λ|(item i of xs, i, xs) |
|||
end repeat |
|||
return lst |
|||
end tell |
|||
end map |
|||
-- Lift 2nd class handler function into 1st class script wrapper |
|||
-- mReturn :: Handler -> Script |
|||
on mReturn(f) |
|||
if class of f is script then |
|||
f |
|||
else |
|||
script |
|||
property |λ| : f |
|||
end script |
|||
end if |
|||
end mReturn</lang> |
|||
{{Out}} |
|||
<pre>{9, 1.732050807569}</pre> |
|||
=={{header|Axe}}== |
=={{header|Axe}}== |
||