Initial data commit

Task/Tokenize-a-string/Scheme/tokenize-a-string-1.ss

@@ -0,0 +1,8 @@
+(use-modules (ice-9 regex))
+(define s "Hello,How,Are,You,Today")
+(define words (map match:substring (list-matches "[^,]+" s)))
+
+(do ((n 0 (+ n 1))) ((= n (length words)))
+        (display (list-ref words n))
+        (if (< n (- (length words) 1))
+                (display ".")))

Task/Tokenize-a-string/Scheme/tokenize-a-string-2.ss

@@ -0,0 +1,3 @@
+(define s "Hello,How,Are,You,Today")
+(define words (string-tokenize s (char-set-complement (char-set #\,))))
+(define t (string-join words "."))

Task/Tokenize-a-string/Scheme/tokenize-a-string-3.ss

@@ -0,0 +1,4 @@
+(print
+  (string-join
+    (string-split "Hello,How,Are,You,Today" #\,)
+    "."))