1st commit on 013,014_haskell

2 files changed, 32 insertions, 0 deletions

diff --git a/challenge-014/stuart-little/haskell/ch-1.hs b/challenge-014/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..550abe5719
--- /dev/null
+++ b/challenge-014/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,19 @@
+#!/usr/bin/env runghc
+
+-- run <script> <nr of terms>
+
+{-# LANGUAGE PackageImports #-}
+
+import System.Environment (getArgs,)
+import Data.List (elemIndex,)
+import "ghc" Util (nTimes,)
+
+whereSeen :: Int -> [Int] -> Int
+whereSeen x xs = maybe 0 (1+) $ elemIndex x xs
+
+vEckTails :: [[Int]]
+vEckTails = iterate (\l@(h:t) -> (whereSeen h t):l) [0]
+
+main = do
+  nr <- getArgs >>= (return.(read::String->Int).head)
+  print $ reverse $ vEckTails !! (nr -1)
diff --git a/challenge-014/stuart-little/haskell/ch-2.hs b/challenge-014/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..9c7281c5b3
--- /dev/null
+++ b/challenge-014/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,13 @@
+#!/usr/bin/env runghc
+
+-- run <script> <path-to-dict-file>
+
+import System.Environment (getArgs,)
+import Data.Char (toUpper,)
+import Data.List.Split (chunksOf,)
+import Data.List.Extra (groupSortOn,)
+
+main = do
+  wrds <- getArgs >>= (readFile.head) >>= (return.words)
+  putStrLn $ unwords $ last $ groupSortOn length $ filter (\w-> and $ map (flip elem states) $ chunksOf 2 $ map toUpper w) $ filter (\w -> even (length w) && length w >= 6) wrds where
+    states = ["AL","AK","AZ","AR","CA","CO","CT","DE","DC","FL","GA","HI","ID","IL","IN","IA","KS","KY","LA","ME","MD","MA","MI","MN","MS","MO","MT","NE","NV","NH","NJ","NM","NY","NC","ND","OH","OK","OR","PA","RI","SC","SD","TN","TX","UT","VT","VA","WA","WV","WI","WY"]