Add the last function

anoma · Nov 7, 2024 · 2f8153e · 2f8153e
1 parent 0080b11
commit 2f8153e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Stdlib/Data/List/Base.juvix b/Stdlib/Data/List/Base.juvix
@@ -165,6 +165,10 @@ head {A} (defaultValue : A) (list : List A) : A :=
     | x :: _ := x
     | nil := defaultValue;
 
+--- 𝒪(𝓃). Grabs the last element of the given ;List;.
+last {A} : A -> List A -> A
+  | default := reverse >> head default;
+
 syntax iterator any {init := 0; range := 1};
 
 --- 𝒪(𝓃). Returns ;true; if at least one element of the ;List; satisfies the predicate.