tasks a-s

Task/Priority-queue/OCaml/priority-queue-2.ocaml

@@ -0,0 +1,22 @@
+module PQSet = Set.Make
+  (struct
+     type t = int * string (* pair of priority and task name *)
+     let compare = compare
+   end);;
+
+let () =
+  let tasks = [
+    3, "Clear drains";
+    4, "Feed cat";
+    5, "Make tea";
+    1, "Solve RC tasks";
+    2, "Tax return";
+  ] in
+  let pq = List.fold_right PQSet.add tasks PQSet.empty in
+  let rec aux pq' =
+    if not (PQSet.is_empty pq') then begin
+      let prio, name as task = PQSet.min_elt pq' in
+      Printf.printf "%d, %s\n" prio name;
+      aux (PQSet.remove task pq')
+    end
+  in aux pq