Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Priority-queue/Standard-ML/priority-queue.ml
+++ b/Task/Priority-queue/Standard-ML/priority-queue.ml
@ -15,7 +15,7 @@ let
    (5, "Make tea"),
    (1, "Solve RC tasks"),
    (2, "Tax return")]
-  val pq = foldr PQ.insert PQ.empty tasks
+  val pq = foldl PQ.insert PQ.empty tasks
  (* or val pq = PQ.fromList tasks *)
  fun aux pq' =
    case PQ.next pq' of