Add tasks for all the new languages

Task/Priority-queue/Nim/priority-queue-1.nim

@@ -0,0 +1,60 @@
+type
+  PriElem[T] = tuple
+    data: T
+    pri: int
+
+  PriQueue[T] = object
+    buf: seq[PriElem[T]]
+    count: int
+
+# first element not used to simplify indices
+proc initPriQueue[T](initialSize = 4): PriQueue[T] =
+  result.buf.newSeq(initialSize)
+  result.buf.setLen(1)
+  result.count = 0
+
+proc add[T](q: var PriQueue[T], data: T, pri: int) =
+  var n = q.buf.len
+  var m = n div 2
+  q.buf.setLen(n + 1)
+
+  # append at end, then up heap
+  while m > 0 and pri < q.buf[m].pri:
+    q.buf[n] = q.buf[m]
+    n = m
+    m = m div 2
+
+  q.buf[n] = (data, pri)
+  q.count = q.buf.len - 1
+
+proc pop[T](q: var PriQueue[T]): PriElem[T] =
+  assert q.buf.len > 1
+  result = q.buf[1]
+
+  var qn = q.buf.len - 1
+  var n = 1
+  var m = 2
+  while m < qn:
+    if m + 1 < qn and q.buf[m].pri > q.buf[m+1].pri:
+      inc m
+
+    if q.buf[qn].pri <= q.buf[m].pri:
+      break
+
+    q.buf[n] = q.buf[m]
+    n = m
+    m = m * 2
+
+  q.buf[n] = q.buf[qn]
+  q.buf.setLen(q.buf.len - 1)
+  q.count = q.buf.len - 1
+
+var p = initPriQueue[string]()
+p.add("Clear drains", 3)
+p.add("Feed cat", 4)
+p.add("Make tea", 5)
+p.add("Solve RC tasks", 1)
+p.add("Tax return", 2)
+
+while p.count > 0:
+  echo p.pop()

Task/Priority-queue/Nim/priority-queue-2.nim

@@ -0,0 +1,18 @@
+import tables
+
+var
+  pq = initTable[int, string]()
+
+proc main() =
+  pq.add(3, "Clear drains")
+  pq.add(4, "Feed cat")
+  pq.add(5, "Make tea")
+  pq.add(1, "Solve RC tasks")
+  pq.add(2, "Tax return")
+
+  for i in countUp(1,5):
+    if pq.hasKey(i):
+      echo i, ": ", pq[i]
+      pq.del(i)
+
+main()