Phrase reversals: Difference between revisions
no edit summary
(Added Seed7 example) |
No edit summary |
||
Line 2,193:
Reverse Phrase : reversal phrase code rosetta
</pre>
=={{header|Yabasic}}==
<lang Yabasic>phrase$ = "Rosetta Code Phrase Reversal"
dim word$(1)
n = token(phrase$, word$())
print phrase$
for i = n to 1 step -1
print reverse$(word$(i)), " ";
next
print
for i = n to 1 step -1
print word$(i), " ";
next
print
for i = 1 to n
print reverse$(word$(i)), " ";
next
print
sub reverse$(w$)
local i, rw$
for i = len(w$) to 1 step -1
rw$ = rw$ + mid$(w$, i, 1)
next
return rw$
end sub</lang>
=={{header|zkl}}==
| |||