langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Apply-a-callback-to-an-array/PureBasic/apply-a-callback-to-an-array.purebasic
+++ b/Task/Apply-a-callback-to-an-array/PureBasic/apply-a-callback-to-an-array.purebasic
@ -0,0 +1,14 @@
+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())