From 157265a4d6509483939a18a19ff8cbd3faeee6a7 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Tue, 19 Jan 2021 19:42:41 -0500
Subject: 1st commit on 048_haskell

---
 challenge-048/stuart-little/haskell/ch-1.hs | 16 ++++++++++++++++
 challenge-048/stuart-little/haskell/ch-2.hs | 10 ++++++++++
 2 files changed, 26 insertions(+)
 create mode 100755 challenge-048/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-048/stuart-little/haskell/ch-2.hs

diff --git a/challenge-048/stuart-little/haskell/ch-1.hs b/challenge-048/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..3405cacd78
--- /dev/null
+++ b/challenge-048/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,16 @@
+#!/usr/bin/env runghc
+
+-- run <script> <nr of people; defaults to 50 if you enter nothing> 
+
+import Data.List.Extra (headDef,)
+import System.Environment (getArgs,)
+
+surv :: Int -> Int
+surv n
+  |n==1 =1
+  |even n = 2*(surv (div n 2)) -1
+  |odd n = 2*(surv (div n 2)) +1
+
+main = do
+  nrplayers <- getArgs >>= return.(read::String->Int).(headDef "50")
+  print $ surv nrplayers
diff --git a/challenge-048/stuart-little/haskell/ch-2.hs b/challenge-048/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..f7239a04df
--- /dev/null
+++ b/challenge-048/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run <script>
+
+import Data.List (sortOn,)
+import Data.Tuple (swap,)
+import Text.Printf (printf,)
+
+main = do
+  mapM_ putStrLn $ sortOn (swap.(splitAt 4)) $ map (\[x,y]-> x ++ y ++ (reverse y) ++ (reverse x)) $ sequence [(map (printf "%02d") ([1..12]::[Int])),["02","12","22"]]
-- 
cgit