Data update

Task/FizzBuzz/Common-Lisp/fizzbuzz-8.lisp

@@ -1,20 +1,15 @@
-;; Project : FizzBuzz
+(defun range (min max)
+  (loop
+    :for x :from min :to max
+    :collect x))
 
-(defun fizzbuzz (&optional n)
-          (let ((n (or n 1)))
-          (if (> n 100)
-              nil
-              (progn
-              (let ((mult-3 (is-mult-p n 3))
-              (mult-5 (is-mult-p n 5)))
-              (if mult-3
-                  (princ "Fizz"))
-              (if mult-5
-                  (princ "Buzz"))
-              (if (not (or mult-3 mult-5))
-                  (princ n))
-              (princ #\linefeed)
-              (fizzbuzz (+ n 1)))))))
-(defun is-mult-p (n multiple)
-          (= (rem n multiple) 0))
-(fizzbuzz 1)
+(defun fizzbuzz ()
+  (map 'nil #'(lambda (n)
+                (princ
+                  (cond
+                    ((zerop (mod n 15)) "FizzBuzz!")
+                    ((zerop (mod n 5)) "Buzz!")
+                    ((zerop (mod n 3)) "Fizz!")
+                    (t n))
+                  (terpri)))
+            (range 1 100)))

Task/FizzBuzz/Common-Lisp/fizzbuzz-9.lisp

@@ -0,0 +1,20 @@
+;; Project : FizzBuzz
+
+(defun fizzbuzz (&optional n)
+          (let ((n (or n 1)))
+          (if (> n 100)
+              nil
+              (progn
+              (let ((mult-3 (is-mult-p n 3))
+              (mult-5 (is-mult-p n 5)))
+              (if mult-3
+                  (princ "Fizz"))
+              (if mult-5
+                  (princ "Buzz"))
+              (if (not (or mult-3 mult-5))
+                  (princ n))
+              (princ #\linefeed)
+              (fizzbuzz (+ n 1)))))))
+(defun is-mult-p (n multiple)
+          (= (rem n multiple) 0))
+(fizzbuzz 1)

Task/FizzBuzz/Langur/fizzbuzz-1.langur

@@ -1,3 +0,0 @@
-for .i of 100 {
-    writeln switch(0; .i rem 15: "FizzBuzz"; .i rem 5: "Buzz"; .i rem 3: "Fizz"; .i)
-}

Task/FizzBuzz/Langur/fizzbuzz-2.langur

@@ -1,3 +0,0 @@
-for .i of 100 {
-    writeln if(.i div 15: "FizzBuzz"; .i div 5: "Buzz"; .i div 3: "Fizz"; .i)
-}

Task/FizzBuzz/Langur/fizzbuzz.langur

@@ -0,0 +1,3 @@
+for i of 100 {
+    writeln switch(0; i rem 15: "FizzBuzz"; i rem 5: "Buzz"; i rem 3: "Fizz"; i)
+}

Task/FizzBuzz/PascalABC.NET/fizzbuzz.pas

@@ -0,0 +1,10 @@
+begin
+  for var i:=1 to 100 do
+    if i mod 15 = 0 then
+      Print('FizzBuzz')
+    else if i mod 3 = 0 then
+      Print('Fizz')
+    else if i mod 5 = 0 then
+      Print('Buzz')
+    else Print(i)
+end.

Task/FizzBuzz/Q/fizzbuzz-1.q

@@ -1 +1 @@
-{(2 sv not x mod/:5 3)'[;`fizz;`buzz;`fizzbuzz]`$string x}
+{(`$string x)^`fizzbuzz`buzz`fizz`(x mod\:15 5 3)?'0}

Task/FizzBuzz/Q/fizzbuzz-2.q

@@ -1,4 +1,4 @@
 q)/ Fizzbuzz
-q)fb:{(2 sv not x mod/:5 3)'[;`fizz;`buzz;`fizzbuzz]`$string x}
+q)fb:{(`$string x)^`fizzbuzz`buzz`fizz`(x mod\:15 5 3)?'0}
 q)fb 1+til 20
 `1`2`fizz`4`buzz`fizz`7`8`fizz`buzz`11`fizz`13`14`fizzbuzz`16`17`fizz`19`buzz

Task/FizzBuzz/Q/fizzbuzz-3.q

@@ -1,17 +1,18 @@
 q)show x:1+til 20
 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
-q)x mod/:5 3
-1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0
-1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2
-q)not x mod/:5 3
-00001000010000100001b
-00100100100100100100b
-q)show i:2 sv not x mod/:5 3  / binary decode
-0 0 1 0 2 1 0 0 1 2 0 1 0 0 3 0 0 1 0 2
-q)(`$string x;`fizz;`buzz;`fizzbuzz)
+q)x mod\:15 5 3
+1  1 1
+2  2 2
+3  3 0
+4  4 1
+5  0 2
+6  1 0
+..
+q)(x mod\:15 5 3)?'0
+3 3 2 3 1 2 3 3 2 1 3 2 3 3 0 3 3 2 3 1
+q)`fizzbuzz`buzz`fizz`(x mod\:15 5 3)?'0  / substitutions
+```fizz``buzz`fizz```fizz`buzz``fizz```fizzbuzz```fizz``buzz
+q)`$string x  / numbers => symbols
 `1`2`3`4`5`6`7`8`9`10`11`12`13`14`15`16`17`18`19`20
-`fizz
-`buzz
-`fizzbuzz
-q)i'[`$string x;`fizz;`buzz;`fizzbuzz]  / Case iterator
+q)(`$string x)^`fizzbuzz`buzz`fizz`(x mod\:15 5 3)?'0  / replace nulls with numbers
 `1`2`fizz`4`buzz`fizz`7`8`fizz`buzz`11`fizz`13`14`fizzbuzz`16`17`fizz`19`buzz

Task/FizzBuzz/Uiua/fizzbuzz.uiua

@@ -1 +1 @@
-⟨⟨⟨&p|&p"Fizz"◌⟩=0◿3.|&p"Buzz"◌⟩=0◿5.|&p"Fizzbuzz"◌⟩=0◿15.+1⇡100
+⟨&p|&p"Fizz"|&p"Buzz"|&p"Fizzbuzz"⟩°⋯⍉=0⊞◿3_5.+1⇡100