From d423d6b72a9e3ed65ca61526cb2241e6817abe8a Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Wed, 13 Mar 2024 03:02:04 +0700
Subject: Implement Shrek Path Finding

---
 test.adb | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'test.adb')

diff --git a/test.adb b/test.adb
index 3501009..3c1ce14 100644
--- a/test.adb
+++ b/test.adb
@@ -1,17 +1,18 @@
 with Text_IO; use Text_IO;
 with Ada.Strings.Fixed; use Ada.Strings.Fixed;
 with Ada.Strings; use Ada.Strings;
+with Ada.Containers.Vectors;
 
 procedure Test is
-    type Item_Kind is (Key, Bomb);
-
-    type Item(Kind: Item_Kind) is record
-        case Kind is
-           when Key => null;
-           when Bomb =>
-               Cooldown: Integer;
-        end case;
-    end record;
+    package Queue is new
+        Ada.Containers.Vectors(Index_Type => Natural, Element_Type => Integer);
+    Q: Queue.Vector;
 begin
-    null;
+    for Index in 1..10 loop
+        Q.Append(Index);
+    end loop;
+    while not Q.Is_Empty loop
+        Put_Line(Integer'Image(Q(0)));
+        Q.Delete_First;
+    end loop;
 end;
-- 
cgit v1.2.3