Partial function application: Difference between revisions
Added FreeBASIC
imported>Arakov |
(Added FreeBASIC) |
||
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}}===
| |||