all tasks

Task/Tokenize-a-string/Retro/tokenize-a-string-1.retro

@@ -0,0 +1,13 @@
+{{
+  : char     (  -$  )   " " ;
+  : tokenize ( $-$$ )
+    @char ^strings'splitAtChar withLength 1- over + 0 swap ! tempString ;
+  : action   ( $-   )
+    keepString ^buffer'add ;
+---reveal---
+  : split    ( $cb- )
+    ^buffer'set !char
+    char ^strings'append
+    [ tokenize action dup 1 <> ] while drop
+    ^buffer'get drop ;
+}}

Task/Tokenize-a-string/Retro/tokenize-a-string-2.retro

@@ -0,0 +1,2 @@
+create strings 100 allot
+"Hello,How,Are,You,Today" ', strings split

Task/Tokenize-a-string/Retro/tokenize-a-string-3.retro

@@ -0,0 +1 @@
+strings [ @ "%s." puts ] ^types'STRING each@