Reverse words in a string: Difference between revisions

m
→‎{{header|Phix}}: syntax coloured
m (Emacs Lisp: Fix formatting)
m (→‎{{header|Phix}}: syntax coloured)
Line 2,771:
 
=={{header|Phix}}==
<!--<lang Phix>constant test="""(phixonline)-->
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
---------- Ice and Fire ------------
<span style="color: #008080;">constant</span> <span style="color: #000000;">test</span><span style="color: #0000FF;">=</span><span style="color: #008000;">"""
 
---------- Ice and Fire ------------
fire, in end will world the say Some
ice. in say Some
fire, in end will world the say Some
desire of tasted I've what From
ice. in say Some
fire. favor who those with hold I
desire of tasted I've what From
 
fire. favor who those with hold I
... elided paragraph last ...
 
... elided paragraph last ...
Frost Robert -----------------------
"""
Frost Robert -----------------------
sequence lines = split(test,'\n')
"""</span>
for i=1 to length(lines) do
<span style="color: #004080;">sequence</span> <span style="color: #000000;">lines</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test</span><span style="color: #0000FF;">,</span><span style="color: #008000;">'\n'</span><span style="color: #0000FF;">)</span>
lines[i] = join(reverse(split(lines[i])))
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lines</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
end for
<span style="color: #000000;">lines</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">reverse</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lines</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">])))</span>
puts(1,join(lines,"\n"))</lang>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">lines</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">))</span>
<!--</lang>-->
{{out}}
<pre>
7,803

edits