1st commit on 011_haskell

2 files changed, 17 insertions, 0 deletions

diff --git a/challenge-011/stuart-little/haskell/ch-1.hs b/challenge-011/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..f61411a3c7
--- /dev/null
+++ b/challenge-011/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,7 @@
+#!/usr/bin/env runghc
+
+-- run <script>
+
+main = do
+  putStrLn ((show x) ++ " F = " ++ (show x) ++ " C") where
+    x = (-32)*5/4
diff --git a/challenge-011/stuart-little/haskell/ch-2.hs b/challenge-011/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..ccafed4cda
--- /dev/null
+++ b/challenge-011/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run <script> <matrix_size>
+
+import System.Environment (getArgs,)
+
+main = do
+  args <- getArgs
+  let (n:_) = map (read::String->Int) args
+  mapM_ print $ take n $ iterate (\x -> (last x):(init x)) (1:(replicate (n-1) 0))