Data commit

Task/Reverse-a-string/Turing/reverse-a-string-1.turing

@@ -0,0 +1,10 @@
+function reverse (s : string) : string
+    var rs := ""
+    for i : 0 .. length (s) - 1
+        rs := rs + s (length (s) - i)
+    end for
+    result rs
+end reverse
+
+put reverse ("iterative example")
+put reverse (reverse ("iterative example"))

Task/Reverse-a-string/Turing/reverse-a-string-2.turing

@@ -0,0 +1,10 @@
+function reverse (s : string) : string
+    if s = "" then
+        result s
+    else
+        result reverse (s (2 .. *)) + s (1)
+    end if
+end reverse
+
+put reverse ("recursive example")
+put reverse (reverse ("recursive example"))