Reverse words in a string: Difference between revisions
→{{header|Racket}}: Included Wheeler-readable/sweet notation
(Added Delphi solution) |
(→{{header|Racket}}: Included Wheeler-readable/sweet notation) |
||
Line 3,007:
(begin (displayln (split-reverse l))
(loop (read-line poem-port))))))
</lang>
In Wheeler-readable/sweet notation (https://readable.sourceforge.io/) as implemented by Asumu Takikawa (https://github.com/takikawa/sweet-racket):
<lang racket>
#lang sweet-exp racket/base
require racket/string
define split-reverse(str)
string-join $ reverse $ string-split str
define poem
"---------- Ice and Fire ------------
fire, in end will world the say Some
ice. in say Some
desire of tasted I've what From
fire. favor who those with hold I
... elided paragraph last ...
Frost Robert -----------------------"
let
\\
poem-port $ open-input-string poem
let loop
\\
l $ read-line poem-port
unless eof-object?(l)
begin
displayln split-reverse(l)
loop read-line(poem-port)
</lang>
| |||