From da5121aa0d0cd10bfc219aa84a09d9528b65cdcb Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Tue, 12 Jan 2021 09:37:35 -0500
Subject: 1st commit on 033_haskell

---
 challenge-033/stuart-little/haskell/ch-1.hs | 13 +++++++++++++
 challenge-033/stuart-little/haskell/ch-2.hs | 14 ++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100755 challenge-033/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-033/stuart-little/haskell/ch-2.hs

diff --git a/challenge-033/stuart-little/haskell/ch-1.hs b/challenge-033/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..b862cbe4e0
--- /dev/null
+++ b/challenge-033/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,13 @@
+#!/usr/bin/env runghc
+
+-- run <script> <space-separated file paths>
+
+import System.Environment (getArgs,)
+import Control.Monad (liftM,)
+import Data.Char (toLower,)
+import Data.List.Utils (countElem,)
+
+main = do
+  files <- getArgs
+  text <- liftM ((map toLower).concat) $ sequence $ map readFile files
+  mapM_ putStrLn $ map (\c-> [c] ++ ": " ++ (show $ countElem c text)) ['a'..'z']
diff --git a/challenge-033/stuart-little/haskell/ch-2.hs b/challenge-033/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..14979da343
--- /dev/null
+++ b/challenge-033/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,14 @@
+#!/usr/bin/env runghc
+
+-- run <script> <size of the mult_table>
+
+import System.Environment (getArgs,)
+import Control.Monad (liftM,)
+
+pad :: Int -> String -> String
+pad nr str = (replicate ((-) nr $ length str) ' ') ++ str
+
+main = do
+  n <- liftM (read::String->Int) $ liftM head getArgs
+  let ln = length $ show (n*n)
+  mapM_ putStrLn $ map unwords $ map (\x -> map (\y -> if (y<x) then (replicate ln ' ') else (pad ln (show (x*y)))) [1..n]) [1..n]
-- 
cgit