Jump to content

Closures/Value capture: Difference between revisions

Closures/Value capture (view source)

Revision as of 20:35, 4 January 2022

7,446 bytes added ,  2 years ago
m
→‎{{header|Phix}}: added syntax colouring, marked p2js compatible
m (→‎{{header|Phix}}: added syntax colouring, marked p2js compatible)
Line 1,508:
=={{header|Phix}}==
Phix does not support closures, but they seem easy enough to emulate
<!--<lang Phix>(phixonline)-->
<lang Phix>-- First some generic handling stuff, handles partial_args▼
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
-- of any mixture of any length and element types.▼
▲ <langspan Phixstyle="color: #000080;font-style:italic;">-- First some generic handling stuff, handles partial_args
sequence closures = {}
▲ -- of any mixture of any length and element types.</span>
function add_closure(integer rid, sequence partial_args)
<span style="color: #004080;">sequence</span> <span style="color: #000000;">closures</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
closures = append(closures,{rid,partial_args})
<span style="color: #008080;">function</span> <span style="color: #000000;">add_closure</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">rid</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">partial_args</span><span style="color: #0000FF;">)</span>
return length(closures) -- (return an integer id)
<span style="color: #000000;">closures</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">closures</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">rid</span><span style="color: #0000FF;">,</span><span style="color: #000000;">partial_args</span><span style="color: #0000FF;">})</span>
end function
<span style="color: #008080;">return</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">closures</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (return an integer id)</span>
 
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
function call_closure(integer id, sequence args)
{integer rid, sequence partial_args} = closures[id]
<span style="color: #008080;">function</span> <span style="color: #000000;">call_closure</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">id</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">args</span><span style="color: #0000FF;">)</span>
return call_func(rid,partial_args&args)
<span style="color: #0000FF;">{</span><span style="color: #004080;">integer</span> <span style="color: #000000;">rid</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">partial_args</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">closures</span><span style="color: #0000FF;">[</span><span style="color: #000000;">id</span><span style="color: #0000FF;">]</span>
end function
<span style="color: #008080;">return</span> <span style="color: #7060A8;">call_func</span><span style="color: #0000FF;">(</span><span style="color: #000000;">rid</span><span style="color: #0000FF;">,</span><span style="color: #000000;">partial_args</span><span style="color: #0000FF;">&</span><span style="color: #000000;">args</span><span style="color: #0000FF;">)</span>
 
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
-- The test routine to be made into a closure, or ten▼
-- Note that all external references/captured variables must▼
▲ <span style="color: #000080;font-style:italic;">-- The test routine to be made into a closure, or ten
-- be passed as arguments, and grouped together on the lhs▼
▲ -- Note that all external references/captured variables must
function square(integer i)
▲ -- be passed as arguments, and grouped together on the lhs</span>
return i*i
<span style="color: #008080;">function</span> <span style="color: #000000;">square</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">)</span>
end function
<span style="color: #008080;">return</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">*</span><span style="color: #000000;">i</span>
 
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
-- Create the ten closures as asked for.▼
-- Here, cids is just {1,2,3,4,5,6,7,8,9,10}, however ids would be more▼
▲ <span style="color: #000080;font-style:italic;">-- Create the ten closures as asked for.
-- useful for a mixed bag of closures, possibly stored all over the shop.▼
▲ -- Here, cids is just {1,2,3,4,5,6,7,8,9,10}, however ids would be more
-- Likewise add_closure could have been a procedure for this demo, but▼
▲ -- useful for a mixed bag of closures, possibly stored all over the shop.
-- you would probably want the function in a real-world application.▼
▲ -- Likewise add_closure could have been a procedure for this demo, but
sequence cids = {}
▲ -- you would probably want the function in a real-world application.</span>
for i=1 to 10 do
<span style="color: #004080;">sequence</span> <span style="color: #000000;">cids</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
--for i=11 to 20 do -- alternative test▼
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">10</span> <span style="color: #008080;">do</span>
cids &= add_closure(routine_id("square"),{i})
▲ <span style="color: #000080;font-style:italic;">--for i=11 to 20 do -- alternative test</span>
end for
<span style="color: #000000;">cids</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">add_closure</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">routine_id</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"square"</span><span style="color: #0000FF;">),{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">})</span>
-- And finally call em (this loop is blissfully unaware what function ▼
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
-- it is actually calling, and what partial_arguments it is passing)▼
▲ <span style="color: #000080;font-style:italic;">-- And finally call em (this loop is blissfully unaware what function
for i=1 to 10 do
▲ -- it is actually calling, and what partial_arguments it is passing)</span>
printf(1," %d",call_closure(cids[i],{}))
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">10</span> <span style="color: #008080;">do</span>
end for</lang>▼
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %d"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">call_closure</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cids</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],{}))</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
▲end for<!--</lang>-->
{{out}}
<pre>
Line 1,556 ⟶ 1,559:
 
A dictionary based approach may prove somewhat easier:
<!--<lang Phix>function square(integer tidphixonline)-->
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
integer i = getd("i",tid) -- (setd valid here too)
<span style="color: #008080;">function</span> <span style="color: #000000;">square</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">tid</span><span style="color: #0000FF;">)</span>
return i*i
<span style="color: #004080;">integer</span> <span style="color: #000000;">i</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">getd</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"i"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">tid</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (setd valid here too)</span>
end function
<span style="color: #008080;">return</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">*</span><span style="color: #000000;">i</span>
 
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
sequence tids = {}
for i=1 to 10 do
<span style="color: #004080;">sequence</span> <span style="color: #000000;">tids</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
--for i=11 to 20 do
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">10</span> <span style="color: #008080;">do</span>
tids &= new_dict({{"i",i}})
<span style="color: #000080;font-style:italic;">--for i=11 to 20 do</span>
end for
<span style="color: #000000;">tids</span> <span style="color: #0000FF;">&=</span> <span style="color: #7060A8;">new_dict</span><span style="color: #0000FF;">({{</span><span style="color: #008000;">"i"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">i</span><span style="color: #0000FF;">}})</span>
for i=1 to 10 do
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
printf(1," %d",square(tids[i]))
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">10</span> <span style="color: #008080;">do</span>
end for</lang>▼
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %d"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">square</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tids</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]))</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
▲end for<!--</lang>-->
same output, for both tests
 
Petelomax
7,820

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/195336"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information