Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 18 additions & 0 deletions archive/a/algol60/fizz-buzz.alg
Original file line number Diff line number Diff line change
@@ -0,0 +1,18 @@
begin
integer procedure mod(x, n);
value x, n;
integer x, n;
begin
mod := x - n * (x % n)
end mod;

integer i;
for i := 1 step 1 until 100 do
begin
if mod(i, 15) = 0 then outstring(1, "FizzBuzz")
else if mod(i, 3) = 0 then outstring(1, "Fizz")
else if mod(i, 5) = 0 then outstring(1, "Buzz")
else outinteger(1, i);
outstring(1, "\n")
end
end
Loading