Data commit

Task/Reverse-a-string/AWK/reverse-a-string-1.awk

@@ -0,0 +1,10 @@
+function reverse(s)
+{
+  p = ""
+  for(i=length(s); i > 0; i--) { p = p substr(s, i, 1) }
+  return p
+}
+
+BEGIN {
+  print reverse("edoCattesoR")
+}

Task/Reverse-a-string/AWK/reverse-a-string-2.awk

@@ -0,0 +1,9 @@
+function reverse(s   ,l)
+{
+  l = length(s)
+  return l < 2 ? s:( substr(s,l,1) reverse(substr(s,1,l-1)) )
+}
+
+BEGIN {
+  print reverse("edoCattesoR")
+}

Task/Reverse-a-string/AWK/reverse-a-string-3.awk

@@ -0,0 +1,12 @@
+# Usage: awk -f reverse.awk -v s=Rosetta
+
+function rev(s,   i,len,a,r) {
+   len = split(s, a, "")
+  #for (i in a) r = a[i] r	# may not work - order is not guaranteed !
+   for (i=1; i<=len; i++) r = a[i] r
+   return r
+}
+BEGIN {
+   if(!s) s = "Hello, world!"
+   print s, "<-->", rev(s)
+}