Data update

Task/FizzBuzz/Retro/fizzbuzz.retro

@@ -0,0 +1,26 @@
+( empty string result to display result )
+~~~
+
+'result var
+' s:format !result
+
+'number var
+#1 !number
+
+~~~
+( checks for empty string if result empty print number )
+( else append fizz for divisible by 3 and prepend buzz for divisible by 5)
+( if; exists the word fizzbuzz immediately )
+~~~
+
+:fizzbuzz (-)
+    @number #3  mod #0 eq? [ 'fizz @result s:append !result ] if
+    @number #5  mod #0 eq? [ 'buzz @result s:prepend !result ] if
+    ' @result s:eq? [ @number n:put nl ] if;
+    ' @result s:eq? not [ @result s:put nl ] if;
+     ;
+
+[ fizzbuzz 'result var
+    ' s:format !result @number #1 + !number @number #100 lteq? ] while
+
+~~~