Reverse words in a string: Difference between revisions
no edit summary
No edit summary |
|||
Line 3,232:
----------------------- Robert Frost
</pre>
=={{header|Yabasic}}==
<lang Yabasic>data " ---------- Ice and Fire ------------ "
data " "
data " fire, in end will world the say Some "
data " ice. in say Some "
data " desire of tasted I've what From "
data " fire. favor who those with hold I "
data " "
data " ... elided paragraph last ... "
data " "
data " Frost Robert ----------------------- "
data ""
dim w$(1)
do
read l$
if l$ <> "" then
n = token(l$, w$(), " ")
for i = n to 1 step -1
print w$(i), " ";
next
print
else
break
end if
loop</lang>
=={{header|zkl}}==
|