11 lines
389 B
Text
11 lines
389 B
Text
#reverse the string
|
|
str := "rosetta code phrase reversal":
|
|
print(StringTools:-Reverse(str)):
|
|
#reverse each word
|
|
lst := convert(StringTools:-Split(str, " "), Array):
|
|
for i to numelems(lst) do
|
|
lst[i] := StringTools:-Reverse(lst[i]):
|
|
end do:
|
|
print(StringTools:-Join(convert(lst,list)," ")):
|
|
#reverse word order
|
|
print(StringTools:-Join(ListTools:-Reverse(StringTools:-Split(str," ")), " ")):
|