progress

Author: blissdev

Reverse.hs

@@ -0,0 +1,8 @@
+module Reverse where
+
+-- "Curry is awesome" -> "awesome is Curry."
+rvrs :: String -> String
+rvrs x = drop 9 x ++ (drop 5 (take 9 x)) ++ take 5 x ++ "."
+
+main :: IO ()
+main = print $ rvrs "Curry is awesome"

ThirdLetter.hs

@@ -0,0 +1,2 @@
+thirdLetter :: String -> Char
+thirdLetter x = x !! 2

TopOrLocal.hs

@@ -0,0 +1,10 @@
+module TopOrLocal where
+
+topLevelFunction :: Integer -> Integer
+topLevelFunction x = x + woot + topLevelValue
+  where
+    woot :: Integer
+    woot = 10
+
+topLevelValue :: Integer
+topLevelValue = 5