Add haskell implementation

Author: larion

Dockerfile

@@ -1,13 +1,14 @@
 FROM ubuntu
 MAINTAINER Judit Acs
 RUN apt-get update
-RUN yes | apt-get install -y wget curl gcc g++ nano python perl php5 git default-jdk time software-properties-common mono-mcs
+RUN yes | apt-get install -y wget curl gcc g++ nano python perl php5 git default-jdk time software-properties-common mono-mcs ghc cabal-install
 RUN yes | apt-add-repository ppa:staticfloat/juliareleases
 RUN yes | apt-get update
 RUN yes | apt-get install julia
 RUN yes | apt-get install golang-go
 RUN curl -sL https://deb.nodesource.com/setup_4.x | sudo -E bash -
 RUN sudo apt-get install --yes nodejs
+RUN cabal update
 RUN git clone https://github.com/juditacs/wordcount.git
 RUN locale-gen en_US.UTF-8 
 ENV LANG en_US.UTF-8 

haskell/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

haskell/WordCount.cabal

@@ -0,0 +1,20 @@
+name: WordCount
+version: 0.1.0.0
+-- synopsis: 
+-- description: 
+-- license: 
+--license-file: LICENSE
+author: Larion Garaczi
+maintainer: l4rion@gmail.com
+-- copyright: 
+category: Language
+build-type: Simple
+cabal-version: >=1.8
+
+executable WordCount
+ main-is: WordCount.hs
+ -- other-modules: 
+ build-depends: base ==4.6.*, containers ==0.5.*, unordered-containers ==0.2.*, text ==1.2.*
+ ghc-options:
+ -O2
+ -with-rtsopts=-H512M

haskell/WordCount.hs

@@ -0,0 +1,16 @@
+import qualified Data.Text as T;
+import qualified Data.Text.IO as TextIO;
+import qualified Data.List as L;
+import qualified Data.HashMap.Strict as H;
+import Data.Monoid;
+
+main = TextIO.interact (T.concat . map formatOutput . countWords) where
+ formatOutput (word, count) = T.concat [word, T.singleton '\t', T.pack . show $ count, T.singleton '\n']
+
+countWords :: T.Text -> [(T.Text, Int)]
+countWords = L.sortBy (\(a, b) (c, d) -> compare d b <> compare a c) .
+ H.toList .
+ H.fromListWith (+) .
+ map (\word -> (word, 1)) .
+ filter (/=T.empty) .
+ T.split (`elem` "\n\r\t\f ")

run_commands.txt

@@ -13,3 +13,4 @@ python/wordcount_py3.py
 php php/wordcount.php
 go/bin/wordcount
 mono csharp/WordCountList.exe
+haskell/WordCount

scripts/build.sh

@@ -19,3 +19,7 @@ go install wordcount
 
 cd ../csharp
 mcs WordCountList.cs
+
+cd ../haskell
+cabal install --verbose=0
+cp dist/build/WordCount/WordCount .