fix(string): string:codepoints returns a list of codepoints as numbers

Author: SuperFola

String.ark

@@ -77,10 +77,12 @@
 # @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
+# @brief Compute the UTF8 codepoints that makes a string, and return them as a List of numbers
 # @param _str String
 # =begin
-# (print (string:codepoints "abc"))  # ["a" "b" "c"]
+# (print (string:codepoints "abc"))  # [97 98 99]
+# # strings can be reassembled from their codepoints:
+# (print (string:join (list:map (string:codepoints "🏳️‍⚧️") string:chr) ""))  # 🏳️‍⚧️
 # =end
 # @author https://github.com/SuperFola
 (let codepoints (fun (_str) (builtin__string:codepoints _str)))

tests/string-tests.ark

@@ -55,8 +55,8 @@
   (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:eq (string:codepoints "hello") [104 101 108 108 111])
+    (test:eq (string:codepoints "🏳️‍⚧️") [127987 65039 8205 9895 65039]) })
 
   (test:case "ord, chr" {
     (test:eq (builtin__string:ord "a") (string:ord "a"))