From c3d4ce93d3f0a2bc508df130fa1552257fa6f976 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 11 Jan 2021 21:08:12 -0500
Subject: 1st commit on 024_haskell

---
 challenge-024/stuart-little/haskell/ch-1.hs |  3 +++
 challenge-024/stuart-little/haskell/ch-2.hs | 16 ++++++++++++++++
 2 files changed, 19 insertions(+)
 create mode 100755 challenge-024/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-024/stuart-little/haskell/ch-2.hs

(limited to 'challenge-024')

diff --git a/challenge-024/stuart-little/haskell/ch-1.hs b/challenge-024/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..28bf6aec12
--- /dev/null
+++ b/challenge-024/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,3 @@
+#!/usr/bin/env runghc
+
+main = do return ()
diff --git a/challenge-024/stuart-little/haskell/ch-2.hs b/challenge-024/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..ed85bda84b
--- /dev/null
+++ b/challenge-024/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,16 @@
+#!/usr/bin/env runghc
+
+-- run <script> <space-separated list of file_paths>
+
+import System.Environment (getArgs,)
+import Control.Monad (liftM,)
+import Data.Maybe (fromJust,)
+import Data.List.Unique (sortUniq,)
+
+main = do
+  files <- getArgs
+  texts <- mapM ((liftM words).readFile) files
+  let wrds = sortUniq $ concat texts
+  let idx = zip files texts
+  let invidx = zip wrds $ map (\w -> filter (\fl -> elem w $ fromJust $ lookup fl idx) files) wrds
+  mapM_ putStrLn $ map (\(x,y) -> (show x) ++ " appears in: " ++ (unwords y)) $ invidx
-- 
cgit