tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Queue-Definition/J/queue-definition-1.j
+++ b/Task/Queue-Definition/J/queue-definition-1.j
@ -0,0 +1,16 @@
+queue_fifo_=: ''
+
+pop_fifo_=: verb define
+  r=. {. ::] queue
+  queue=: }.queue
+  r
+)
+
+push_fifo_=: verb define
+  queue=: queue,y
+  y
+)
+
+isEmpty_fifo_=: verb define
+  0=#queue
+)