Data update

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

@@ -0,0 +1,13 @@
+100 DEF Multiply(A, B) = A * B
+110 DECLARE FUNCTION MultiplyI
+120 DECLARE EXTERNAL FUNCTION MultiplyE
+130 PRINT Multiply(3, 1.23456)
+140 PRINT MultiplyI(3, 1.23456)
+150 PRINT MultiplyE(3, 1.23456)
+160 FUNCTION MultiplyI(X, Y)
+170    LET MultiplyI = X * Y
+180 END FUNCTION
+190 END
+200 EXTERNAL FUNCTION MultiplyE(A, B)
+210 LET MultiplyE = A * B
+220 END FUNCTION

Task/Function-definition/Chapel/function-definition-1.chapel

@@ -0,0 +1,4 @@
+proc multiply(a, b)
+{
+   return a * b;
+}

Task/Function-definition/Chapel/function-definition-2.chapel

@@ -0,0 +1,4 @@
+proc multiply(a : ?t ... 2)
+{
+   return a(0) * a(1)
+}

Task/Function-definition/Langur/function-definition-1.langur

@@ -1,2 +1 @@
-val .multiply = fn(.x, .y) { .x * .y }
-.multiply(3, 4)
+val multiply = fn{*}

Task/Function-definition/Langur/function-definition-2.langur

@@ -1,2 +1 @@
-val .multiply = fn(.x, .y) .x * .y
-.multiply(3, 4)
+val multiply = fn a, b: a * b

Task/Function-definition/Langur/function-definition-3.langur

@@ -1,2 +1 @@
-val .multiply = fn{*}
-.multiply(3, 4)
+val multiply = fn(a, b) { a * b }

Task/Function-definition/Langur/function-definition-4.langur

@@ -1,2 +0,0 @@
-val .times3 = fn{* 3}
-map .times3, [1, 2, 3]

Task/Function-definition/Langur/function-definition-5.langur

@@ -1 +0,0 @@
-val .writeit = impure fn(.x) { writeln .x }

Task/Function-definition/PascalABC.NET/function-definition.pas

@@ -0,0 +1 @@
+function multiply(a,b: real): real := a + b;