FizzBuzzFizzBuzz

Adaで。(全参加者4名中size406で4位)

with Ada.Text_IO, Ada.Integer_Text_IO; use Ada.Text_IO, Ada.Integer_Text_IO; procedure Fizzbuzz is i : Integer := 1; begin for i in 1 .. 100 loop

if i mod 3 = 0 then
Put("Fizz");
end if;

if i mod 5 = 0 then
Put("Buzz");
end if;

if i mod 3 /= 0 then
if i mod 5 /= 0 then
Put(i,0);
end if;
end if;
New_Line;
end loop;
end Fizzbuzz;

まぁFizzBuzz書ける程度にAdaの勉強になったのでいいか。
短かくできないか、もうちょっとやってみよう。

◯追記
色々工夫したらIntの宣言無くてもいけたり、&&的なのはandと書く事を知ったり、意外と改行要らなかったりでsize: 265で3位までいった。

今はこれが精一杯。