Sync

Task/Reverse-a-string/Applesoft-BASIC/reverse-a-string.applesoft

@@ -0,0 +1,11 @@
+10 A$ = "THE FIVE BOXING WIZARDS JUMP QUICKLY"
+20 GOSUB 100REVERSE
+30 PRINT R$
+40 END
+
+100 REMREVERSE A$
+110 R$ = ""
+120 FOR I = 1 TO LEN(A$)
+130    R$ = MID$(A$, I, 1) + R$
+140 NEXT I
+150 RETURN

Task/Reverse-a-string/COBOL/reverse-a-string.cobol

@@ -1 +1 @@
-FUNCTION REVERSE-STRING('QWERTY')
+FUNCTION REVERSE('QWERTY')

Task/Reverse-a-string/Clipper/reverse-a-string.clipper

@@ -0,0 +1,6 @@
+FUNCTION Reverse(sIn)
+   LOCAL sOut := "", i
+   FOR i := Len(sIn) TO 1 STEP -1
+      sOut += Substr(sIn, i, 1)
+   NEXT
+RETURN sOut

Task/Reverse-a-string/Component-Pascal/reverse-a-string.component

@@ -0,0 +1,26 @@
+MODULE BbtReverseString;
+IMPORT StdLog;
+
+PROCEDURE ReverseStr(str: ARRAY OF CHAR): POINTER TO ARRAY OF CHAR;
+VAR
+	top,middle,i: INTEGER;
+	c: CHAR;
+	rStr: POINTER TO ARRAY OF CHAR;
+BEGIN
+	NEW(rStr,LEN(str$) + 1);
+	top := LEN(str$) - 1; middle := (top - 1) DIV 2;
+	FOR i := 0 TO middle DO
+		rStr[i] := str[top - i];
+		rStr[top - i] := str[i];
+	END;
+	IF ODD(LEN(str$)) THEN rStr[middle + 1] := str[middle + 1] END;
+	RETURN rStr;
+END ReverseStr;
+
+PROCEDURE Do*;
+VAR
+	x: CHAR;
+BEGIN
+	StdLog.String("'asdf' reversed:> ");StdLog.String(ReverseStr("asdf"));StdLog.Ln
+END Do;
+END BbtReverseString.

Task/Reverse-a-string/D/reverse-a-string.d

@@ -1,15 +1,12 @@
-import std.stdio, std.range, std.conv;
-
 void main() {
+    import std.stdio, std.range, std.conv;
+
     string s1 = "hello"; // UTF-8
-    string s1r = text(retro("hello"));
-    assert(s1r == "olleh");
+    assert(s1.retro.text == "olleh");
 
     wstring s2 = "hello"w; // UTF-16
-    wstring s2r = wtext(retro("hello"));
-    assert(s2r == "olleh");
+    assert(s2.retro.wtext == "olleh");
 
     dstring s3 = "hello"d; // UTF-32
-    dstring s3r = dtext(retro("hello"));
-    assert(s3r == "olleh");
+    assert(s3.retro.dtext == "olleh");
 }

Task/Reverse-a-string/FALSE/reverse-a-string-1.false

@@ -0,0 +1,3 @@
+1_
+[^$1_=~][]#%
+[$1_=~][,]#

Task/Reverse-a-string/FALSE/reverse-a-string-2.false

@@ -0,0 +1,8 @@
+1_
+[^$1_=~][
+  $$767>\879\>&
+  1ø$7615>\7620\>&|
+  1ø$8399>\8428\>&|
+  [\]?
+]#%
+[$1_=~][,]#

Task/Reverse-a-string/Nimrod/reverse-a-string.nimrod

@@ -7,3 +7,4 @@ proc reverse(s: string): string =
     result.add str1[i]
 
 echo "Original string: ", str1, "\nReversed: ", reverse(str1)
+echo "Using inbuilt array reversal: ", reverse(str1)

Task/Reverse-a-string/PARI-GP/reverse-a-string.pari

@@ -1 +1 @@
-reverse(expr)=my(v=Vec(Str(expr)),n=length(v));concat(vector(n,i,v[n-i+1]));
+reverse(s)=concat(Vecrev(s))

Task/Reverse-a-string/Rust/reverse-a-string-1.rust

@@ -0,0 +1,3 @@
+// rust 0.8
+let s = "一二三四五六七八九十";
+let reversed:~str = s.rev_iter().collect();

Task/Reverse-a-string/Rust/reverse-a-string-2.rust

@@ -0,0 +1 @@
+let reversed:~str = "一二三四五六七八九十".rev_iter().collect();