1st commit on 053_haskell

2 files changed, 28 insertions, 0 deletions

diff --git a/challenge-053/stuart-little/haskell/ch-1.hs b/challenge-053/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..042f2c72ad
--- /dev/null
+++ b/challenge-053/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,11 @@
+#!/usr/bin/env runghc
+
+-- run <script>
+
+import Data.List (transpose,intercalate,)
+import Data.List.Split (chunksOf,)
+
+rot90 mat = map reverse $ transpose mat
+
+main = do 
+  mapM_ putStrLn $ map (((replicate 40 '-') ++ "\n") ++) $ map (intercalate "\n") $ (map.map) unwords $ take 4 $ iterate rot90 $ (map.map) show $ chunksOf 3 [1..9]
diff --git a/challenge-053/stuart-little/haskell/ch-2.hs b/challenge-053/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..60564c2216
--- /dev/null
+++ b/challenge-053/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,17 @@
+#!/usr/bin/env runghc
+
+-- run <script> <desired word-length>
+
+import System.Environment (getArgs,)
+import Data.Tree (unfoldForest,levels,)
+import Data.List (isPrefixOf,)
+
+appendAlwd w = (w, map (\c -> (w ++ [c])) $ map last $ filter (isPrefixOf $ [last w]) alwd)
+  where alwd=["ae","ai","ei","ia","ie","io","iu","oa","ou","uo","ue"]
+          
+frst = unfoldForest appendAlwd $ map (\x -> [x]) "aeiou"
+
+main = do
+  args <- getArgs
+  let lng = read (args !! 0)::Int
+  mapM_ putStrLn $ concat $ map last $ map (take lng) $ map levels $ frst