add head function

luminalang · Dec 14, 2024 · a2be4c9 · a2be4c9
1 parent 896f26b
commit a2be4c9
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/luminapath/std/list/lib.lm b/luminapath/std/list/lib.lm
@@ -284,6 +284,11 @@ pub fn sortBy f list as fn(a, a -> Ordering), [a] -> [a] =
       then sortBy #f new
       else new
 
+pub fn head list as [a] -> a = 
+  match list
+  | [x : _] -> x
+  | [] -> io:crash "attempted to get head of empty list"
+
 // TODO: Considder splitting equality out from Compare
 // (Eq + Ordering)
 //