Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Run-length-encoding/Oforth/run-length-encoding.oforth
+++ b/Task/Run-length-encoding/Oforth/run-length-encoding.oforth
@ -0,0 +1,12 @@
+: encode(s)
+   StringBuffer new
+   s group apply(#[ tuck size asString << swap first <<c ]) ;
+
+: decode(s)
+| c i |
+   StringBuffer new
+   0 s forEach: c [
+      c isDigit ifTrue: [ 10 * c asDigit + continue ]
+      loop: i [ c <<c ] 0
+      ]
+   drop ;