feat(string): add string:codepoints

Author: SuperFola

String.ark

@@ -69,14 +69,22 @@
 (let removeAt (fun (_str _index) (builtin__string:removeAt _str _index)))
 
 # @brief Compute the length of an UTF8 string by counting the number of codepoints
-# @param char a String
+# @param _str a String
 # =begin
 # (string:utf8len "h")  # 1
 # (string:utf8len "🏳️‍⚧️")  # 5
 # =end
 # @author https://github.com/SuperFola
 (let utf8len (fun (_str) (builtin__string:utf8len _str)))
 
+# @brief Compute the UTF8 codepoints that makes a string, and return them as a List
+# @param _str String
+# =begin
+# (print (string:codepoints "abc"))  # ["a" "b" "c"]
+# =end
+# @author https://github.com/SuperFola
+(let codepoints (fun (_str) (builtin__string:codepoints _str)))
+
 # @brief Get the ordinal of a given character
 # @param char a String with a single UTF8 character
 # =begin

tests/string-tests.ark

@@ -52,6 +52,12 @@
     (test:eq (string:utf8len "hello\t") 6)
     (test:eq (string:utf8len "🏳️‍⚧️") 5) })
 
+  (test:case "codepoints" {
+    (test:eq (builtin__string:codepoints "hello") (string:codepoints "hello"))
+    (test:eq (string:codepoints "") [])
+    (test:eq (string:codepoints "hello") ["h" "e" "l" "l" "o"])
+    (test:eq (list:map (string:codepoints "🏳️‍⚧️") string:ord) [127987 65039 8205 9895 65039]) })
+
   (test:case "ord, chr" {
     (test:eq (builtin__string:ord "a") (string:ord "a"))
     (test:eq (string:ord "ø") 248)