|
=={{header|Oforth}}==
<lang Oforth>func: revWords(s)
s words reverse unwords ;
{
s words reverse reduce(#[ " " swap + + ]) dup ifNull: [ drop "" ]
}
func: reverseWords
revWords("---------- Ice and Fire ------------" ) revWords println ▼
{
revWords(" " ) revWords println ▼
▲ revWords("---------- Ice and Fire ------------") println
revWords("fire, in end will world the say Some" ")revWords println
revWords("fire,ice. in endsay Some will world the say Some") revWords println
revWords("ice.desire inof saytasted SomeI've what From " ")revWords println
revWords("desirefire. offavor tastedwho I'vethose what Fromwith hold I ") revWords println
revWords("fire. favor who those with hold I ") revWords println
revWords("... elided paragraph last ... " ")revWords println
revWords("... elided paragraph last ... ") revWords println
revWords("Frost Robert -----------------------" ) revWords println ;</lang>▼
▲ revWords("Frost Robert -----------------------") println
}</lang>
{{out}}
|