commit f307cb8d06c291fbe0fd5e9e2641d221a2681b31
Author: Yves Dubromelle <taeradan@dubronetwork.fr>
Date:   Sat Mar 25 17:10:12 2017 +0100

    commit initial

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..9400f78
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,78 @@
+# swap
+[._]*.s[a-v][a-z]
+[._]*.sw[a-p]
+[._]s[a-v][a-z]
+[._]sw[a-p]
+# session
+Session.vim
+# temporary
+.netrwhist
+*~
+# auto-generated tag files
+tags
+dist
+dist-*
+cabal-dev
+*.o
+*.hi
+*.chi
+*.chs.h
+*.dyn_o
+*.dyn_hi
+.hpc
+.hsenv
+.cabal-sandbox/
+cabal.sandbox.config
+*.prof
+*.aux
+*.hp
+*.eventlog
+.stack-work/
+cabal.project.local
+.HTF/
+# Covers JetBrains IDEs: IntelliJ, RubyMine, PhpStorm, AppCode, PyCharm, CLion, Android Studio and Webstorm
+# Reference: https://intellij-support.jetbrains.com/hc/en-us/articles/206544839
+
+# User-specific stuff:
+.idea/**/workspace.xml
+.idea/**/tasks.xml
+.idea/dictionaries
+
+# Sensitive or high-churn files:
+.idea/**/dataSources/
+.idea/**/dataSources.ids
+.idea/**/dataSources.xml
+.idea/**/dataSources.local.xml
+.idea/**/sqlDataSources.xml
+.idea/**/dynamic.xml
+.idea/**/uiDesigner.xml
+
+# Gradle:
+.idea/**/gradle.xml
+.idea/**/libraries
+
+# Mongo Explorer plugin:
+.idea/**/mongoSettings.xml
+
+## File-based project format:
+*.iws
+
+## Plugin-specific files:
+
+# IntelliJ
+/out/
+
+# mpeltonen/sbt-idea plugin
+.idea_modules/
+
+# JIRA plugin
+atlassian-ide-plugin.xml
+
+# Cursive Clojure plugin
+.idea/replstate.xml
+
+# Crashlytics plugin (for Android Studio and IntelliJ)
+com_crashlytics_export_strings.xml
+crashlytics.properties
+crashlytics-build.properties
+fabric.properties
diff --git a/reverse.hs b/reverse.hs
new file mode 100644
index 0000000..f2817c4
--- /dev/null
+++ b/reverse.hs
@@ -0,0 +1,16 @@
+module Reverse where
+
+main :: IO ()
+main = print $ rvrs "Curry is awesome"
+
+rvrs :: String -> String
+rvrs x = wAwesome ++ wIs ++ wCurry
+  where
+    wCurry = take currySize x
+    wIs = drop currySize . reverse . drop awesomeSize . reverse $ x
+    wAwesome = reverse . take awesomeSize . reverse $ x
+    currySize = 5
+    awesomeSize = 7
+
+rvrs' :: String -> String
+rvrs' = unwords . reverse . words
diff --git a/test.hs b/test.hs
new file mode 100644
index 0000000..aab29a7
--- /dev/null
+++ b/test.hs
@@ -0,0 +1,10 @@
+sayHello :: String -> IO ()
+sayHello x = putStrLn ("Hello, " ++ x ++ "!")
+
+triple x = x * 3
+
+thirdLetter :: String -> Char
+thirdLetter x = x !! 2
+
+letterIndex :: Int -> Char
+letterIndex = (!!) "Curry is awesome!"