Skip to content

Commit f3825db

Browse files
authored
Add Reverse String in Rexx (#4503)
1 parent 8da0f4d commit f3825db

File tree

1 file changed

+19
-0
lines changed

1 file changed

+19
-0
lines changed

archive/r/rexx/reverse-string.rexx

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
/* Reverse-String */
2+
3+
parse arg inputString
4+
if inputString = "" then exit /* exits right away if there is no input! */
5+
6+
say reverseString(inputString)
7+
exit
8+
9+
reverseString:
10+
parse arg str
11+
length = length(str)
12+
reversed = ""
13+
14+
do i = length to 1 by -1
15+
reversed = reversed || substr(str, i, 1)
16+
end
17+
18+
return reversed
19+
/* Req: Hello, World Expected Res: dlroW ,olleH */

0 commit comments

Comments
 (0)