init

1 files changed, 24 insertions, 0 deletions

diff --git a/5-kyu/hashtag-generator.hs b/5-kyu/hashtag-generator.hs
new file mode 100644
index 0000000..2da598f
--- /dev/null
+++ b/5-kyu/hashtag-generator.hs
@@ -0,0 +1,24 @@
+-- https://www.codewars.com/kata/52449b062fb80683ec000024
+
+module Codewars.Kata.Hashtag where
+
+import Data.Char
+import Control.Monad
+
+capitalized w = (toUpper $ head w) : (map toLower $ tail w)
+
+processCapChar s =
+  join $ map (\x -> if isLower x then [x] else " "++[x]) s
+
+generateHashtag :: String -> Maybe String
+generateHashtag s = impl (processCapChar s)
+  where
+    impl s
+      | length (words s) == 0 = Nothing
+      | otherwise =
+        let result = "#" ++ (join $ map capitalized $ words s)
+        in
+          if (length result) > 140 then
+            Nothing
+          else
+            Just result