Data update

Task/Repeat/Applesoft-BASIC/repeat.basic

@@ -0,0 +1,20 @@
+ 100  FOR I = 768 TO 794
+ 110      READ B: POKE I,B: NEXT
+ 120  DATA165,185,72,165,184,72
+ 130  DATA165,118,72,165,117,72
+ 140  DATA169,176,72,32,123,221
+ 150  DATA32,82,231,32,65,217
+ 160  DATA76,210,215
+ 170  POKE 1014,0: POKE 1015,3
+
+ 200  LET P = 400:N = 4
+ 210  GOSUB 300"REPEAT P N
+ 220  END
+
+ 300      IF N <  = 0 THEN  RETURN
+ 310      LET N = N - 1
+ 320      & P
+ 330  GOTO 300
+
+ 400  PRINT "EXAMPLE"
+ 410  RETURN

Task/Repeat/Chapel/repeat-1.chapel

@@ -0,0 +1,13 @@
+config const n = 5;
+
+proc example()
+{
+    writeln("example");
+}
+
+proc repeat(func, n)
+{
+    for i in 0..#n do func();
+}
+
+repeat(example, n);

Task/Repeat/Chapel/repeat-2.chapel

@@ -0,0 +1,13 @@
+config const n = 5;
+
+proc example()
+{
+    writeln("example");
+}
+
+proc repeat(func : proc(), n : uint)
+{
+    for i in 0..#n do func();
+}
+
+repeat(example, n);

Task/Repeat/Chapel/repeat-3.chapel

@@ -0,0 +1,13 @@
+config const n = 5;
+
+proc example(x : uint)
+{
+    writeln("example ", x);
+}
+
+proc repeat(func : proc(x : uint), n : uint)
+{
+    for i in 0..#n do func(i);
+}
+
+repeat(example, n);

Task/Repeat/PascalABC.NET/repeat.pas

@@ -0,0 +1,7 @@
+procedure Rep(n: integer; p: procedure) := (p * n);
+
+procedure p := Print('Hello');
+
+begin
+  Rep(3,p);
+end.

Task/Repeat/Refal/repeat.refal

@@ -0,0 +1,12 @@
+$ENTRY Go {
+    = <Prout <Repeat 3 Example> Eggs And <Example>>;
+}
+
+Repeat {
+    0   s.F e.X = e.X;
+    s.N s.F e.X = <Repeat <- s.N 1> s.F <Mu s.F e.X>>;
+};
+
+Example {
+    e.X = e.X Spam;
+};