March 2014 update

Task/Variadic-function/Applesoft-BASIC/variadic-function.applesoft

@@ -0,0 +1,9 @@
+10 P$(0) = STR$(5)
+20 P$(1) = "MARY"
+30 P$(2) = "HAD"
+40 P$(3) = "A"
+50 P$(4) = "LITTLE"
+60 P$(5) = "LAMB"
+70 GOSUB 90"VARIADIC FUNCTION
+80 END
+90 FOR I = 1 TO VAL(P$(0)) : ? P$(I) : P$(I) = "" : NEXT I : P$(0) = "" : RETURN

Task/Variadic-function/D/variadic-function.d

@@ -2,22 +2,22 @@ import std.stdio, std.algorithm;
 
 void printAll(TyArgs...)(TyArgs args) {
     foreach (el; args)
-        writeln(el);
+        el.writeln;
 }
 
 // Typesafe variadic function for dynamic array
 void showSum1(int[] items...) {
-    writeln(reduce!q{a + b}(0, items));
+    items.sum.writeln;
 }
 
 // Typesafe variadic function for fixed size array
 void showSum2(int[4] items...) {
-    writeln(reduce!q{a + b}(0, items));
+    items[].sum.writeln;
 }
 
 void main() {
-    printAll(4, 5.6, "Rosetta", "Code", "is", "awesome");
-    writeln();
+    printAll(4, 5.6, "Rosetta", "Code", "is", "awseome");
+    writeln;
     showSum1(1, 3, 50);
     showSum2(1, 3, 50, 10);
 }

Task/Variadic-function/Objective-C/variadic-function.m

@@ -12,6 +12,4 @@ void logObjects(id firstObject, ...) // <-- there is always at least one arg, "n
 
 // This function can be called with any number or type of objects, as long as you terminate it with "nil":
 logObjects(@"Rosetta", @"Code", @"Is", @"Awesome!", nil);
-logObjects([NSNumber numberWithInt:4],
-           [NSNumber numberWithInt:3],
-           @"foo", nil);
+logObjects(@4, @3, @"foo", nil);

Task/Variadic-function/PARI-GP/variadic-function.pari

@@ -1 +1 @@
-f(a[..])=prod(i=1,#a,a[i])
+f(a[..])=for(i=1,#a,print(a[i]))

Task/Variadic-function/Prolog/variadic-function-1.pro

@@ -0,0 +1 @@
+printAll( List ) :- forall( member(X,List), (write(X), nl)).

Task/Variadic-function/Prolog/variadic-function-2.pro

@@ -0,0 +1,3 @@
+execute( Term ) :-
+  Term =.. [F | Args],
+  forall( member(X,Args), (G =.. [F,X], G, nl) ).