Data update

Task/FizzBuzz/Retro/fizzbuzz-1.retro

@@ -1,8 +0,0 @@
-: fizz?    ( s-f ) 3 mod 0 = ;
-: buzz?    ( s-f ) 5 mod 0 = ;
-: num?     ( s-f ) dup fizz? swap buzz? or 0 = ;
-: ?fizz    ( s-  ) fizz? [ "Fizz" puts ] ifTrue ;
-: ?buzz    ( s-  ) buzz? [ "Buzz" puts ] ifTrue ;
-: ?num     ( s-  ) num? &putn &drop if ;
-: fizzbuzz ( s-  ) dup ?fizz dup ?buzz dup ?num space ;
-: all      (  -  ) 100 [ 1+ fizzbuzz ] iter ;

Task/FizzBuzz/Retro/fizzbuzz-2.retro

@@ -1,6 +0,0 @@
-needs math'
-: <fizzbuzz>
-  [ 15 ^math'divisor? ] [ drop "FizzBuzz" puts ] when
-  [  3 ^math'divisor? ] [ drop "Fizz"     puts ] when
-  [  5 ^math'divisor? ] [ drop "Buzz"     puts ] when putn ;
-: fizzbuzz cr 100 [ 1+ <fizzbuzz> space ] iter ;

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
+
+~~~