Data update

Task/Run-length-encoding/EasyLang/run-length-encoding.easy

@@ -1,5 +1,4 @@
-proc enc in$ . out$ .
-   out$ = ""
+func$ rlenc in$ .
    for c$ in strchars in$
       if c$ = c0$
          cnt += 1
@@ -12,21 +11,22 @@ proc enc in$ . out$ .
       .
    .
    out$ &= cnt & c0$
+   return out$
 .
-proc dec in$ . out$ .
-   out$ = ""
+func$ rldec in$ .
    for h$ in strsplit in$ " "
       c$ = substr h$ len h$ 1
       for i to number h$
          out$ &= c$
       .
    .
+   return out$
 .
 s$ = input
 print s$
-call enc s$ s$
+s$ = rlenc s$
 print s$
-call dec s$ s$
+s$ = rldec s$
 print s$
 #
 input_data