RosettaCodeData/Task/Reverse-words-in-a-string/Tcl/reverse-words-in-a-string-2.tcl
2015-02-20 09:02:09 -05:00

1 line
53 B
Tcl

puts [join [lmap line $lines {lreverse $line}] "\n"]