1st commit on 089_haskell

2 files changed, 22 insertions, 0 deletions

diff --git a/challenge-089/stuart-little/haskell/ch-1.hs b/challenge-089/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..b4d470cf5b
--- /dev/null
+++ b/challenge-089/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,12 @@
+#!/usr/bin/env runghc
+
+-- run as <script> <number>
+
+import System.Environment   
+import Data.List
+
+gcdSum nr = sum $ map (\x -> gcd (fst x) (snd x)) [(x,y) | x <- [1..nr], y <- [x+1..nr]]
+       
+main = do  
+  args <- getArgs
+  putStrLn $ show $ gcdSum $ (read::String->Int) $ args !! 0
diff --git a/challenge-089/stuart-little/haskell/ch-2.hs b/challenge-089/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..c13d21ab9d
--- /dev/null
+++ b/challenge-089/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run as <script>
+
+import System.Environment
+import Data.List
+       
+main = do  
+  let magic=[[2,7,6],[9,5,1],[4,3,8]]
+  putStrLn $ intercalate "\n" $ map unwords $ (map.map) show magic