add files from home for previous chapters and sandboxes

1 files changed, 10 insertions, 0 deletions

diff --git a/reverse.hs b/reverse.hs
new file mode 100644
index 0000000..cc82509
--- /dev/null
+++ b/reverse.hs
@@ -0,0 +1,10 @@
+main = do
+    line <- getLine
+    if null line
+        then return ()
+        else do
+            putStrLn $ reverseWords line
+            main
+
+reverseWords :: String -> String
+reverseWords = unwords . map reverse . words