From 3f4cc25e365d5702b28778f208483f9afd3f7f97 Mon Sep 17 00:00:00 2001 From: rexim Date: Mon, 18 Mar 2024 03:32:52 +0700 Subject: Introduce Gnomes --- test.adb | 24 +++++++----------------- 1 file changed, 7 insertions(+), 17 deletions(-) (limited to 'test.adb') diff --git a/test.adb b/test.adb index c74e193..59b35f3 100644 --- a/test.adb +++ b/test.adb @@ -4,24 +4,14 @@ with Ada.Strings.Fixed; use Ada.Strings.Fixed; with Ada.Strings; use Ada.Strings; with Ada.Containers.Vectors; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; -with Queue; +with Ada.Numerics.Discrete_Random; procedure Test is - package String_Queue is new Queue(Item => Unbounded_String); - use String_Queue; - Q: String_Queue.Queue; - X: Unbounded_String; + type Direction is (Left, Right, Up, Down); + type Array_Direction is array(Direction) of Integer; + -- type Direction is range 1..10; begin - for Index in 1..16 loop - Enqueue(Q, To_Unbounded_String(Index'Image)); - end loop; - while Dequeue(Q, X) loop - null; - end loop; - for Index in 32..42 loop - Enqueue(Q, To_Unbounded_String(Index'Image)); - end loop; - while Dequeue(Q, X) loop - Put_Line(To_String(X)); - end loop; + Put_Line(Direction'First'Image); + Put_Line(Direction'Last'Image); + Put_Line(Array_Direction'Length'Image); end; -- cgit v1.2.3