Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Queue-Usage/Bracmat/queue-usage.bracmat
+++ b/Task/Queue-Usage/Bracmat/queue-usage.bracmat
@ -0,0 +1,38 @@
+  ( queue
+  =   (list=)
+      (enqueue=.(.!arg) !(its.list):?(its.list))
+      ( dequeue
+      =   x
+        .   !(its.list):?(its.list) (.?x)
+          & !x
+      )
+      (empty=.!(its.list):)
+  )
+& new$queue:?Q
+& (   (Q..enqueue)$1
+    & (Q..enqueue)$2
+    & (Q..enqueue)$3
+    & out$((Q..dequeue)$)
+    & (Q..enqueue)$4
+    & out$((Q..dequeue)$)
+    & out$((Q..dequeue)$)
+    &   out
+      $ ( The
+          queue
+          is
+          ((Q..empty)$&|not)
+          empty
+        )
+    & out$((Q..dequeue)$)
+    &   out
+      $ ( The
+          queue
+          is
+          ((Q..empty)$&|not)
+          empty
+        )
+    & out$((Q..dequeue)$)
+    & out$Success!
+  | out$"Attempt to dequeue failed"
+  )
+;