Phrase reversals: Difference between revisions
→{{header|Haskell}}: Rearranged a little to foreground the core. Added type signatures.
(→{{header|Haskell}}: Rearranged a little to foreground the core. Added type signatures.) |
|||
Line 936:
=={{header|Haskell}}==
<lang haskell>
reverseString = reverse
reverseEachWord = wordLevel (fmap reverse)
main = do▼
putStrLn $ reverse phrase▼
reverseWordOrder = wordLevel reverse
{{out}}▼
wordLevel :: ([String] -> [String]) -> String -> String
lasrever esarhp edoc attesor▼
wordLevel f = unwords . f . words
main :: IO ()
[reverseString, reverseEachWord, reverseWordOrder] <*>
["rosetta code phrase reversal"]</lang>
▲<pre>lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta</pre>
=={{header|J}}==
| |||