June 2018 Update

Task/Function-definition/BASIC/function-definition-2.basic

@@ -0,0 +1,3 @@
+10 DEF FN MULT(X) = X*Y
+20 Y = 4 : REM VALUE OF SECOND ARGUMENT MUST BE ASSIGNED SEPARATELY
+30 PRINT FN MULT(3)

Task/Function-definition/HolyC/function-definition.holyc

@@ -0,0 +1,7 @@
+F64 Multiply(F64 a, F64 b) {
+  return a * b;
+}
+
+F64 x;
+x = Multiply(42, 13.37);
+Print("%5.2f\n", x);

Task/Function-definition/Julia/function-definition-1.julia

@@ -1,3 +1,3 @@
-function multiply(a::Number,b::Number)
-  return a*b
+function multiply(a::Number, b::Number)
+  return a * b
 end

Task/Function-definition/Julia/function-definition-2.julia

@@ -1 +1 @@
-multiply(a,b) = a*b
+multiply(a, b) = a * b

Task/Function-definition/Julia/function-definition-3.julia

@@ -1 +1 @@
-(a,b) -> a*b
+multiply = (a, b) -> a * b

Task/Function-definition/Perl-6/function-definition-4.pl6

@@ -1,2 +1 @@
-sub multiply (Rat $a, Rat $b) returns Rat { $a * $b }
 my Rat sub multiply (Rat $a, Rat $b) { $a * $b }

Task/Function-definition/Stata/function-definition-1.stata

@@ -0,0 +1,7 @@
+prog def multiply, return
+	args a b
+	return sca product=`a'*`b'
+end
+
+multiply 77 13
+di r(product)

Task/Function-definition/Stata/function-definition-2.stata

@@ -0,0 +1,7 @@
+mata
+scalar multiply(scalar x, scalar y) {
+	return(x*y)
+}
+
+multiply(77,13)
+end

Task/Function-definition/VBA/function-definition-1.vba

@@ -0,0 +1,3 @@
+Function Multiply(lngMcand As Long, lngMplier As Long) As Long
+    Multiply = lngMcand * lngMplier
+End Function

Task/Function-definition/VBA/function-definition-2.vba

@@ -0,0 +1,4 @@
+Sub Main()
+Dim Result As Long
+    Result = Multiply(564231, 897)
+End Sub