tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Run-length-encoding/TUSCRIPT/run-length-encoding.tuscript
+++ b/Task/Run-length-encoding/TUSCRIPT/run-length-encoding.tuscript
@ -0,0 +1,9 @@
+$$ MODE TUSCRIPT,{}
+input="WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW",output=""
+string=strings(input," ? ")
+letter=ACCUMULATE(string,freq)
+freq=SPLIT(freq),letter=SPLIT(letter)
+output=JOIN(freq,"",letter)
+output=JOIN(output,"")
+PRINT input
+PRINT output