Apply a callback to an array: Difference between revisions
→{{header|PowerShell}}: re-inserted PurBasic solution
(Undo revision 91391 by 109.125.75.243 (Talk)) |
(→{{header|PowerShell}}: re-inserted PurBasic solution) |
||
Line 1,017:
$a | ForEach-Object $s
}</lang>
=={{header|PureBasic}}==
<lang PureBasic>Procedure Cube(Array param.i(1))
Protected n.i
For n = 0 To ArraySize(param())
Debug Str(param(n)) + "^3 = " + Str(param(n) * param(n) * param(n))
Next
EndProcedure
Dim AnArray.i(4)
For n = 0 To ArraySize(AnArray())
AnArray(n) = Random(99)
Next
Cube(AnArray()) </lang>
=={{header|Python}}==
|