Data commit

Task/Reverse-a-string/CLU/reverse-a-string.clu

@@ -0,0 +1,12 @@
+reverse = proc (s: string) returns (string)
+    rslt: array[char] := array[char]$predict(1,string$size(s))
+    for c: char in string$chars(s) do
+        array[char]$addl(rslt,c)
+    end
+    return(string$ac2s(rslt))
+end reverse
+
+start_up = proc ()
+    po: stream := stream$primary_output()
+    stream$putl(po, reverse("!dlrow ,olleH"))
+end start_up