Merge pull request #3126 from stuart-little/stuart-little_079_haskell

1st commit on 079_haskell

3 files changed, 36 insertions, 1 deletions

diff --git a/challenge-079/stuart-little/README b/challenge-079/stuart-little/README
index 76119cbbb8..78439907de 100644
--- a/challenge-079/stuart-little/README
+++ b/challenge-079/stuart-little/README
@@ -1 +1 @@
-Solutions by Stuart Little.
+Solutions by Stuart Little
diff --git a/challenge-079/stuart-little/haskell/ch-1.hs b/challenge-079/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..bb008df3e4
--- /dev/null
+++ b/challenge-079/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,13 @@
+#!/usr/bin/env runghc
+
+-- run as <script> <number>
+
+import System.Environment   
+
+nrbits 0 = 0
+nrbits x = (mod x 2) + (nrbits $ (div x 2))
+       
+main = do  
+  args <- getArgs
+  putStrLn $ show $ sum $ map nrbits [1..(read (args !! 0)::Int)]
+
diff --git a/challenge-079/stuart-little/haskell/ch-2.hs b/challenge-079/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..61647b3460
--- /dev/null
+++ b/challenge-079/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,22 @@
+#!/usr/bin/env runghc
+
+-- run as <script> <space-separated array entries>
+
+import System.Environment   
+
+holdWater a = sum $ filter ((<) 0) $ zipWith (-) (0:(map (\i -> minimum $ map maximum $ (\x -> [fst x,snd x]) $ splitAt i a) [1..(length a -1)])) a
+
+charTr lnr val
+  |val <= lnr = ' '
+  |otherwise = '#'
+
+histLine xs lnr = map (charTr lnr) xs 
+hist xs = reverse $ map (histLine xs) [0..(maximum xs - 1)]
+
+main = do  
+  args <- getArgs
+  let intargs = map (read::String->Int) args
+  putStr "\nWater quantity: "
+  putStrLn $ show $ holdWater intargs
+  putStrLn "\nHistogram:\n"  
+  mapM_ putStrLn $ hist intargs