31 lines
551 B
Plaintext
31 lines
551 B
Plaintext
/* 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")
|