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
+)
--- a/Task/Queue-Definition/J/queue-definition-2.j
+++ b/Task/Queue-Definition/J/queue-definition-2.j
@ -0,0 +1,10 @@
+pop        =: ( {.^:notnull  ;  }. )@: > @: ]  /
+push       =: ( ''  ;  ,~ )& >  /
+tell_atom  =: >& {.
+tell_queue =: >& {:
+is_empty   =: '' -: 1 tell_queue
+
+make_empty =: a: , a: [ ]
+onto       =: [ ; }.@]
+
+notnull    =: 0 ~: #