tasks a-s

Task/Run-length-encoding/AWK/run-length-encoding-1.awk

@@ -0,0 +1,16 @@
+BEGIN {
+ FS=""
+}
+/^[^0-9]+$/ {
+  cp = $1; j = 0
+  for(i=1; i <= NF; i++) {
+    if ( $i == cp ) {
+      j++;
+    } else {
+      printf("%d%c", j, cp)
+      j = 1
+    }
+    cp = $i
+  }
+  printf("%d%c", j, cp)
+}

Task/Run-length-encoding/AWK/run-length-encoding-2.awk

@@ -0,0 +1,13 @@
+BEGIN {
+  RS="[0-9]+[^0-9]"
+  final = "";
+}
+{
+  match(RT, /([0-9]+)([^0-9])/, r)
+  for(i=0; i < int(r[1]); i++) {
+    final = final r[2]
+  }
+}
+END {
+  print final
+}