1st commit on 091_haskell

2 files changed, 27 insertions, 0 deletions

diff --git a/challenge-091/stuart-little/haskell/ch-1.hs b/challenge-091/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..ed68fe0a3b
--- /dev/null
+++ b/challenge-091/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,12 @@
+#!/usr/bin/env runghc
+
+-- run as <script> <number>
+
+import System.Environment   
+import Data.List  
+
+freqs s = concat $ map (\x -> (show $ length x) ++ [head x]) $ group s
+        
+main = do  
+  args <- getArgs
+  putStrLn $ freqs $ head args
diff --git a/challenge-091/stuart-little/haskell/ch-2.hs b/challenge-091/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..5d083231e1
--- /dev/null
+++ b/challenge-091/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,15 @@
+#!/usr/bin/env runghc
+
+-- run as <script> <space-separated numbers>
+
+import System.Environment   
+import Data.List  
+
+jmp xs
+  |length xs <= 1 =True
+  |(length xs >= 2) && (head xs == 0) =False
+  |otherwise = jmp $ drop (head xs) xs
+       
+main = do  
+  args <- getArgs
+  putStrLn $ show $ jmp $ map (read::String->Int) args