June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/FizzBuzz/Simula/fizzbuzz.simula
+++ b/Task/FizzBuzz/Simula/fizzbuzz.simula
@ -2,14 +2,14 @@ begin
    integer i;
    for i := 1 step 1 until 100 do
    begin
-        if mod( i, 15 ) = 0 then
-            outtext( "FizzBuzz" )
-        else if mod( i, 3 ) = 0 then
-            outtext( "Fizz" )
-        else if mod( i, 5 ) = 0 then
-            outtext( "Buzz" )
-        else
-            outint( i, 3 );
+        boolean fizzed;
+        fizzed := 0 = mod(i, 3);
+        if fizzed then
+            outtext("Fizz");
+        if mod(i, 5) = 0 then
+            outtext("Buzz")
+        else if not fizzed then
+            outint(i, 3);
        outimage
    end;
 end