Apply a callback to an array: Difference between revisions
Added code for FreeBASIC
(Added code for FreeBASIC) |
|||
Line 1,132:
<lang fp>{square * . [id, id]}
& square: <1,2,3,4,5></lang>
=={{header|FreeBASIC}}==
<lang freebasic>' FB 1.05.0 Win64
Sub PrintEx(n As Integer)
Print n, n * n, n * n * n
End Sub
Sub Proc(a() As Integer, callback As Sub(n As Integer))
For i As Integer = LBound(a) To UBound(a)
callback(i)
Next
End Sub
Dim a(1 To 10) As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Print " n", "n^2", "n^3"
Print " -", "---", "---"
Proc(a(), @PrintEx)
Print
Print "Press any key to quit the program"
Sleep</lang>
{{out}}
<pre>
n n^2 n^3
- --- ---
1 1 1
2 4 8
3 9 27
4 16 64
5 25 125
6 36 216
7 49 343
8 64 512
9 81 729
10 100 1000
</pre>
=={{header|Frink}}==
| |||