Data update

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

@@ -1,21 +0,0 @@
-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/Arturo/queue-usage.arturo

@@ -1,35 +1,37 @@
-define :queue [][
-    init: [
+define :queue [
+    init: method [][
         this\items: []
     ]
-]
 
-empty?: function [this :queue][
-    zero? this\items
-]
+    empty?: method [][
+        zero? this\items
+    ]
 
-push: function [this :queue, item][
-    this\items: this\items ++ item
-]
+    push: method [item][
+        this\items: this\items ++ item
+    ]
 
-pop: function [this :queue][
-    ensure -> not? empty? this
+    pop: method [][
+        ensure [not? this\empty?]
 
-    result: this\items\0
-    this\items: remove.index this\items 0
-    return result
+        result: this\items\0
+        this\items: remove.index this\items 0
+        return result
+    ]
 ]
 
 Q: to :queue []
 
-push Q 1
-push Q 2
-push Q 3
+do ::
 
-print ["queue is empty?" empty? Q]
+    Q\push 1
+    Q\push 2
+    Q\push 3
 
-print ["popping:" pop Q]
-print ["popping:" pop Q]
-print ["popping:" pop Q]
+    print ["queue is empty?" Q\empty?]
 
-print ["queue is empty?" empty? Q]
+    print ["popping:" Q\pop]
+    print ["popping:" Q\pop]
+    print ["popping:" Q\pop]
+
+    print ["queue is empty?" Q\empty?]

Task/Queue-Usage/Elena/queue-usage.elena

@@ -1,7 +1,7 @@
 import system'collections;
 import extensions;
 
-public program()
+public Program()
 {
     // Create a queue and "push" items into it
     var queue := new Queue();
@@ -11,14 +11,14 @@ public program()
     queue.push(5);
 
     // "Pop" items from the queue in FIFO order
-    console.printLine(queue.pop()); // 1
-    console.printLine(queue.pop()); // 3
-    console.printLine(queue.pop()); // 5
+    Console.printLine(queue.pop()); // 1
+    Console.printLine(queue.pop()); // 3
+    Console.printLine(queue.pop()); // 5
 
     // To tell if the queue is empty, we check the count
-    console.printLine("queue is ",(queue.Length == 0).iif("empty","nonempty"));
+    Console.printLine("queue is ",(queue.Length == 0).iif("empty","nonempty"));
 
     // If we try to pop from an empty queue, an exception
     // is thrown.
-    queue.pop() \\ on::(e){ console.writeLine("Queue empty.") }
+    queue.pop() \\ on::(e){ Console.writeLine("Queue empty.") }
 }

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

@@ -1,26 +0,0 @@
-[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.psh

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

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

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

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

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

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

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

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

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

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

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

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

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

Task/Queue-Usage/REBOL/queue-usage.rebol

@@ -1,15 +0,0 @@
-; Create and populate a FIFO:
-
-q: make fifo []
-q/push 'a
-q/push 2
-q/push USD$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]