June 2018 Update

Task/Reverse-a-string/Aime/reverse-a-string.aime

@@ -1 +1 @@
-o_(b_reverse(b_draft("Hello, World!")), "\n");
+o_(b_reverse("Hello, World!"), "\n");

Task/Reverse-a-string/Fortran/reverse-a-string-3.f

@@ -0,0 +1,13 @@
+ program reverse_string
+  implicit none
+  character (80) :: cadena
+  integer :: k, n
+  !
+  cadena = "abcdefgh"
+  n = len_trim (cadena)
+  !
+  write (*,*) cadena
+  forall (k=1:n) cadena (k:k) = cadena (n-k+1:n-k+1)
+  write (*,*) cadena
+  !
+end program reverse_string

Task/Reverse-a-string/Modula-2/reverse-a-string.mod2

@@ -0,0 +1,40 @@
+MODULE ReverseStr;
+FROM FormatString IMPORT FormatString;
+FROM Terminal IMPORT Write,WriteString,WriteLn,ReadChar;
+
+PROCEDURE WriteInt(n : INTEGER);
+VAR buf : ARRAY[0..15] OF CHAR;
+BEGIN
+    FormatString("%i", buf, n);
+    WriteString(buf)
+END WriteInt;
+
+PROCEDURE ReverseStr(in : ARRAY OF CHAR; VAR out : ARRAY OF CHAR);
+VAR ip,op : INTEGER;
+BEGIN
+    ip := 0;
+    op := 0;
+    WHILE in[ip] # 0C DO
+        INC(ip)
+    END;
+    DEC(ip);
+    WHILE ip>=0 DO
+        out[op] := in[ip];
+        INC(op);
+        DEC(ip)
+    END
+END ReverseStr;
+
+TYPE A = ARRAY[0..63] OF CHAR;
+VAR is,os : A;
+BEGIN
+    is := "Hello World";
+    ReverseStr(is, os);
+
+    WriteString(is);
+    WriteLn;
+    WriteString(os);
+    WriteLn;
+
+    ReadChar
+END ReverseStr.

Task/Reverse-a-string/Nim/reverse-a-string-2.nim

@@ -0,0 +1,4 @@
+import unicode
+
+doAssert "foobar".reversed == "raboof"
+doAssert "先秦兩漢".reversed == "漢兩秦先"

Task/Reverse-a-string/Red/reverse-a-string.red

@@ -0,0 +1,2 @@
+>> reverse "asdf"
+== "fdsa"