all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Tokenize-a-string/Retro/tokenize-a-string-1.retro
+++ b/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 ;
+}}