RosettaCodeData/Task/Reverse-words-in-a-string/Maple/reverse-words-in-a-string.maple
2018-08-17 15:15:24 +01:00

7 lines
260 B
Text

while (true) do
input := readline("input.txt"):
if input = 0 then break: fi:
input := StringTools:-Trim(input): # remove leading/trailing space
input := StringTools:-Join(ListTools:-Reverse(StringTools:-Split(input, " "))," "):
printf("%s\n", input):
od: