Data update

Task/Queue-Usage/Ada/queue-usage.adb

@@ -0,0 +1,21 @@
+with FIFO;
+with Ada.Text_Io; use Ada.Text_Io;
+
+procedure Queue_Test is
+   package Int_FIFO is new FIFO (Integer);
+   use Int_FIFO;
+   Queue : FIFO_Type;
+   Value : Integer;
+begin
+   Push (Queue, 1);
+   Push (Queue, 2);
+   Push (Queue, 3);
+   Pop (Queue, Value);
+   Pop (Queue, Value);
+   Push (Queue, 4);
+   Pop (Queue, Value);
+   Pop (Queue, Value);
+   Push (Queue, 5);
+   Pop (Queue, Value);
+   Put_Line ("Is_Empty " & Boolean'Image (Is_Empty (Queue)));
+end Queue_Test;

Task/Queue-Usage/Pluto/queue-usage.pluto

@@ -0,0 +1,13 @@
+require "queue"
+
+local q = new queue()
+q:push(1)
+q:push(2)
+print($"Queue contains {q:toarray():concat(", ")}")
+print($"Number of elements in queue = {q:size()}")
+local item = q:pop()
+print($"'{item}' popped from the queue")
+print($"First element is now {q:peek()}")
+q:clear()
+print("Queue cleared")
+print($"Is queue now empty? {q:empty() ? "yes" : "no"}")

Task/Queue-Usage/PowerShell/queue-usage-1.ps1

@@ -0,0 +1,26 @@
+[System.Collections.ArrayList]$queue = @()
+# isEmpty?
+if ($queue.Count -eq 0) {
+    "isEmpty? result : the queue is empty"
+} else {
+    "isEmpty? result : the queue is not empty"
+}
+"the queue contains : $queue"
+$queue += 1                    # push
+"push result : $queue"
+$queue += 2                    # push
+$queue += 3                    # push
+"push result : $queue"
+
+$queue.RemoveAt(0)             # pop
+"pop result : $queue"
+
+$queue.RemoveAt(0)             # pop
+"pop result : $queue"
+
+if ($queue.Count -eq 0) {
+    "isEmpty? result : the queue is empty"
+} else {
+    "isEmpty? result : the queue is not empty"
+}
+"the queue contains : $queue"

Task/Queue-Usage/PowerShell/queue-usage-2.ps1

@@ -0,0 +1,3 @@
+$queue = New-Object -TypeName System.Collections.Queue
+#or
+$queue = [System.Collections.Queue] @()

Task/Queue-Usage/PowerShell/queue-usage-3.ps1

@@ -0,0 +1 @@
+Get-Member -InputObject $queue

Task/Queue-Usage/PowerShell/queue-usage-4.ps1

@@ -0,0 +1 @@
+1,2,3 | ForEach-Object {$queue.Enqueue($_)}

Task/Queue-Usage/PowerShell/queue-usage-5.ps1

@@ -0,0 +1 @@
+$queue.Peek()

Task/Queue-Usage/PowerShell/queue-usage-6.ps1

@@ -0,0 +1 @@
+$queue.Dequeue()

Task/Queue-Usage/PowerShell/queue-usage-7.ps1

@@ -0,0 +1 @@
+$queue.Clear()

Task/Queue-Usage/PowerShell/queue-usage-8.ps1

@@ -0,0 +1 @@
+if (-not $queue.Count) {"Queue is empty"}

Task/Queue-Usage/Rebol/queue-usage-1.rebol

@@ -0,0 +1,8 @@
+queue: [a]         ;== [a]
+append queue [b c] ;== [a b c]
+take queue         ;== a
+take/last queue    ;== c
+queue              ;== [b]
+length? queue      ;== 1
+insert queue 'A    ;== [b] because insert returns position after insertion
+append queue 'C    ;== [A b C] because append returns position at head

Task/Queue-Usage/Rebol/queue-usage-2.rebol

@@ -0,0 +1,15 @@
+; Create and populate a FIFO:
+
+q: make fifo []
+q/push 'a
+q/push 2
+q/push $12.34                 ; Did I mention that REBOL has 'money!' datatype?
+q/push [Athos Porthos Aramis] ; List elements pushed on one by one.
+q/push [[Huey Dewey Lewey]]   ; This list is preserved as a list.
+
+; Dump it out, with narrative:
+
+print rejoin ["Queue is "  either q/empty [""]["not "]  "empty."]
+while [not q/empty][print ["  " q/pop]]
+print rejoin ["Queue is "  either q/empty [""]["not "]  "empty."]
+print ["Trying to pop an empty queue yields:" q/pop]