RosettaCodeData/Task/Reverse-words-in-a-string/Maple/reverse-words-in-a-string.maple

8 lines
260 B
Text
Raw Permalink Normal View History

2018-08-17 15:15:24 +01:00
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: