feat(list): adding list:contains?

Author: SuperFola

List.ark

@@ -18,6 +18,17 @@
 # @author https://github.com/SuperFola
 (let find (fun (_L _x) (builtin__list:find _L _x)))
 
+# @brief Search if an element is in a List
+# @details The original list is not modified
+# @param list the List to search in
+# @param value the element to search
+# =begin
+# (list:contains? [1 2 3] 1)  # true
+# (list:contains? [1 2 3] 0)  # false
+# =end
+# @author https://github.com/SuperFola
+(let contains? (fun (_L _x) (!= -1 (find _L _x))))
+
 # @brief Get a slice from a List
 # @details The original list is not modified
 # @param list the list to reverse

tests/list-tests.ark

@@ -23,6 +23,11 @@
 
         (test:eq (builtin__list:setAt a 0 5) (list:setAt a 0 5)) })
 
+    (test:case "contains?" {
+        (test:expect (list:contains? [1 2 3] 1))
+        (test:expect (not (list:contains? [1 2 3] "1")))
+        (test:expect (list:contains? ["1" "2" "3"] "1")) })
+
     (test:case "size" {
         (test:eq (list:size []) 0)
         (test:eq (list:size [1 2 3]) 3) })