Partial function application: Difference between revisions
Added FreeBASIC
(Dialects of BASIC moved to the BASIC section.) |
(Added FreeBASIC) |
||
| (3 intermediate revisions by 3 users not shown) | |||
Line 285:
4 16 36 64
</pre>
==={{header|FreeBASIC}}===
{{trans|Lua}}
<syntaxhighlight lang="vbnet">Sub map(f As Function(As Integer) As Integer, arr() As Integer, result() As Integer)
For i As Integer = Lbound(arr) To Ubound(arr)
result(i) = f(arr(i))
Next i
End Sub
Function timestwo(n As Integer) As Integer
Return n * 2
End Function
Function squared(n As Integer) As Integer
Return n ^ 2
End Function
Sub printArray(arr() As Integer)
For i As Integer = Lbound(arr) To Ubound(arr)
Print arr(i);
If i < Ubound(arr) Then Print ",";
Next i
Print
End Sub
Dim As Integer arr1(3) = {0, 1, 2, 3}
Dim As Integer arr2(3) = {2, 4, 6, 8}
Dim As Integer result(3)
map(@timestwo, arr1(), result())
printArray(result())
map(@squared, arr1(), result())
printArray(result())
map(@timestwo, arr2(), result())
printArray(result())
map(@squared, arr2(), result())
printArray(result())
Sleep</syntaxhighlight>
{{out}}
<pre>Same as Lua entry.</pre>
==={{header|Visual Basic .NET}}===
Line 829 ⟶ 873:
=={{header|Elena}}==
{{trans|Smalltalk}}
ELENA
<syntaxhighlight lang="elena">import system'collections;
import system'routines;
Line 838 ⟶ 882:
var partial := (afs,af => (s => afs(af, s)));
var fs := (f,s => s.selectBy::(x => f(x)).summarize(new ArrayList()).toArray());
var f1 := (x => x * 2);
var f2 := (x => x * x);
Line 2,253 ⟶ 2,297:
for f1, series= 2 4 6 8, result= 4 8 12 16
for f2, series= 2 4 6 8, result= 4 16 36 64
</pre>
=={{header|RPL}}==
<code>fs(f,s)</code> is a built-in function in RPL named <code>DOLIST </code>
« 2 * » '<span style="color:blue">F1</span>' STO
« SQ » '<span style="color:blue">F2</span>' STO
« 1 '<span style="color:blue">F1</span>' DOLIST » '<span style="color:blue">FSF1</span>' STO
« 1 '<span style="color:blue">F2</span>' DOLIST » '<span style="color:blue">FSF2</span>' STO
{ 0 1 2 3 } <span style="color:blue">FSF1</span>
{ 0 1 2 3 } <span style="color:blue">FSF2</span>
{ 2 4 6 8 } <span style="color:blue">FSF1</span>
{ 2 4 6 8 } <span style="color:blue">FSF2</span>
{{out}}
<pre>
4: { 0 2 4 6 }
3! { 0 1 4 9 }
2: { 4 8 12 16 }
1: { 4 16 36 64 }
</pre>
Line 2,405 ⟶ 2,471:
=={{header|Wren}}==
<syntaxhighlight lang="
var f1 = Fn.new { |n| 2 * n }
var f2 = Fn.new { |n| n * n }
| |||