tasks a-s

Task/Priority-queue/Icon/priority-queue.icon

@@ -0,0 +1,13 @@
+import Utils		# For Closure class
+import Collections      # For Heap (dense priority queue) class
+
+procedure main()
+   pq := Heap(, Closure("[]",Arg,1) )
+   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"])
+
+   while task := pq.get() do write(task[1]," -> ",task[2])
+end