feat(string): adding string:count

Author: SuperFola

String.ark

@@ -97,6 +97,21 @@
 # @author https://github.com/SuperFola
 (let setAt (fun (_str _index _x) (builtin__string:setAt _str _index _x)))
 
+# @brief Count the number of non-overlapping occurrences of a word in a string
+# @param _str string to search into
+# @param _word word to count occurrences of
+# =begin
+# (string:count "the three truths" "th")  # 3
+# =end
+# @author https://github.com/SuperFola
+(let count (fun (_str _word) {
+  (mut _count 0)
+  (mut _next (find _str _word))
+  (while (!= -1 _next) {
+    (set _count (+ 1 _count))
+    (set _next (findAfter _str _word (+ _next (len _word)))) })
+  _count }))
+
 # @brief Converts the given character to lowercase.
 # @param _string the string to make lowercase
 # @details The original string is left unmodified.

tests/string-tests.ark

@@ -12,6 +12,10 @@
     (test:eq (builtin__string:ord "a") (string:ord "a"))
     (test:eq (builtin__string:chr 65) (string:chr 65))
 
+    (test:eq 3 (string:count "the three truths" "th"))
+    (test:eq 0 (string:count "the three truths" "thz"))
+    (test:eq 2 (string:count "ababababab" "abab"))
+
     (test:eq "abcdefghijklmnopqrstuvwxyz" (string:toLower "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
     (test:eq "abcdefghijklmnopqrstuvwxyz" (string:toLower "abcdefghijklmnopqrstuvwxyz"))
     (test:eq "ABCDEFGHIJKLMNOPQRSTUVWXYZ" (string:toUpper "abcdefghijklmnopqrstuvwxyz"))