Data update

Task/General-FizzBuzz/PascalABC.NET/general-fizzbuzz.pas

@@ -0,0 +1,14 @@
+##
+for var i:=1 to 20 do
+begin
+  var s := '';
+  if i mod 3 = 0 then
+    s += 'Fizz';
+  if i mod 5 = 0 then
+    s += 'Buzz';
+  if i mod 7 = 0 then
+    s += 'Baxx';
+  if s = '' then
+    Println(i)
+  else Println(s);
+end

Task/General-FizzBuzz/Refal/general-fizzbuzz.refal

@@ -0,0 +1,54 @@
+$ENTRY Go {
+    , <Numb <Card>>: s.Max
+    , <ReadFactors>: e.Factors
+    , <Iota 1 s.Max>: e.Nums
+    = <Each Fizz (e.Factors) e.Nums>;
+};
+
+Fizz {
+    s.I e.Facs, <Each Fac (s.I) e.Facs>: {
+        = <Prout <Symb s.I>>;
+        e.X = <Prout e.X>;
+    };
+}
+
+Fac {
+    (s.Fac e.FacWord) s.I, <Mod s.I s.Fac>: {
+        0 = e.FacWord;
+        s.X = ;
+    };
+};
+
+ReadFactors {
+    , <Card>: {
+        0 = ; = ;
+        e.Line = (<Line e.Line>) <ReadFactors>;
+    };
+};
+
+Line {
+    e.X, <Split ' ' e.X>: (e.Num) e.Word =
+        <Numb e.Num> <Trim ' ' e.Word>;
+};
+
+Split {
+    s.C e.X s.C e.Y = (e.X) e.Y;
+    s.C e.X = (e.X);
+};
+
+Trim {
+    s.C = ;
+    s.C s.C e.X = <Trim s.C e.X>;
+    s.C e.X s.C = <Trim s.C e.X>;
+    s.C s.I e.X = s.I <Trim s.C e.X>;
+};
+
+Iota {
+    s.End s.End = s.End;
+    s.Start s.End = s.Start <Iota <+ 1 s.Start> s.End>;
+};
+
+Each {
+    s.F (e.Arg) = ;
+    s.F (e.Arg) t.I e.X = <Mu s.F t.I e.Arg> <Each s.F (e.Arg) e.X>;
+};

Task/General-FizzBuzz/SETL/general-fizzbuzz.setl

@@ -0,0 +1,9 @@
+program general_fizzbuzz;
+    fizzbuzz(20, {[3,"Fizz"], [5,"Buzz"], [7,"Baxx"]});
+
+    proc fizzbuzz(maxno, factors);
+        loop for i in [1..maxno] do
+            print(+/[word : word = factors(f) | i mod f=0] ? str i);
+        end loop;
+    end proc;
+end program;