Data commit

Task/Reverse-a-string/Neko/reverse-a-string.neko

@@ -0,0 +1,30 @@
+/* Reverse a string, in Neko */
+
+var reverse = function(s) {
+  var len = $ssize(s)
+  if len < 2 return s
+
+  var reverse = $smake(len)
+  var pos = 0
+  while len > 0 $sset(reverse, pos ++= 1, $sget(s, len -= 1))
+  return reverse
+}
+
+var str = "never odd or even"
+$print(str, "\n")
+$print(reverse(str), "\n\n")
+
+str = "abcdefghijklmnopqrstuvwxyz"
+$print(str, "\n")
+$print(reverse(str), "\n\n")
+
+$print("single test\n")
+str = "a"
+$print(str, "\n")
+$print(reverse(str), "\n\n")
+
+
+$print("empty test\n")
+str = ""
+$print(str, "\n")
+$print(reverse(str), "\n")