tasks a-s

Task/Priority-queue/J/priority-queue-1.j

@@ -0,0 +1,23 @@
+coclass 'priorityQueue'
+
+PRI=: ''
+QUE=: ''
+
+insert=:4 :0
+  p=. PRI,x
+  q=. QUE,y
+  assert. p -:&$ q
+  assert. 1 = #$q
+  ord=: \: p
+  QUE=: ord { q
+  PRI=: ord { p
+  i.0 0
+)
+
+topN=:3 :0
+  assert y<:#PRI
+  r=. y{.QUE
+  PRI=: y}.PRI
+  QUE=: y}.QUE
+  r
+)

Task/Priority-queue/J/priority-queue-2.j

@@ -0,0 +1,9 @@
+   Q=: conew'priorityQueue'
+   3 4 5 1 2 insert__Q 'clear drains';'feed cat';'make tea';'solve rc task';'tax return'
+   >topN__Q 1
+make tea
+   >topN__Q 4
+feed cat
+clear drains
+tax return
+solve rc task