tasks a-s

Task/Reverse-a-string/AutoHotkey/reverse-a-string-1.ahk

@@ -0,0 +1,8 @@
+MsgBox % reverse("asdf")
+
+reverse(string)
+{
+  Loop, Parse, string
+    reversed := A_LoopField . reversed
+  Return reversed
+}

Task/Reverse-a-string/AutoHotkey/reverse-a-string-2.ahk

@@ -0,0 +1,19 @@
+Reverse(String){ ; credit to Rseding91
+   If (A_IsUnicode){
+      SLen := StrLen(String) * 2
+      VarSetCapacity(RString,SLen)
+
+      Loop,Parse,String
+         NumPut(Asc(A_LoopField),RString,SLen-(A_Index * 2),"UShort")
+   } Else {
+      SLen := StrLen(String)
+      VarSetCapacity(RString,SLen)
+
+      Loop,Parse,String
+         NumPut(Asc(A_LoopField),RString,SLen-A_Index,"UChar")
+   }
+
+   VarSetCapacity(RString,-1)
+
+   Return RString
+}