Introduce Gnomes

1 files changed, 7 insertions, 17 deletions

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;