← All changes | build/shiki/samples/ada.sample +10 -18 trunk → 1.13.0 View file →

		@@ -1,22 +1,13 @@
1		-with
2		- Ada.Text_IO,
3		- Ada.Integer_Text_IO;
4		-use Ada;
	1	+with Ada.Text_IO; use Ada.Text_IO;
5	2
6		-procedure fizz_buzz is
	3	+procedure Learn is
	4	+
	5	+ subtype Alphabet is Character range 'A' .. 'Z';
	6	+
7	7	begin
8		- for i in 1..100 loop
9		- if i mod 15 = 0 then
10		- Text_IO.Put_Line("fizz buzz");
11		- elsif i mod 5 = 0 then
12		- Text_IO.Put_Line("buzz");
13		- elsif i mod 3 = 0 then
14		- Text_IO.Put_Line("fizz");
15		- else
16		- Integer_Text_IO.put(i, Width => 0);
17		- Text_IO.New_Line;
18		- end if;
19		- end loop;
20		-end fizz_buzz;
21	8
	9	+ Put_Line ("Learning Ada from " & Alphabet'First & " to " & Alphabet'Last);
	10	+
	11	+end Learn;
	12	+
	13	+-- From https://learn.adacore.com/