feat: Year 2014 extractMin

MMZK1526 · Jan 5, 2025 · ff963ce · ff963ce
1 parent 7e67573
commit ff963ce
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Year2013/Exam.hs b/src/Year2013/Exam.hs
@@ -28,8 +28,7 @@ combineTrees t1@(Node a1 r1 h1) t2@(Node a2 r2 h2)
 -- PART II
 
 extractMin :: Ord a => BinHeap a -> a
-extractMin 
-  = undefined
+extractMin = minimum . map key
 
 mergeHeaps :: Ord a => BinHeap a -> BinHeap a -> BinHeap a
 mergeHeaps