From a7e6c4eca6c5e02cd847bb32e4fa49a96abdadb2 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 22 Mar 2021 09:31:10 -0400
Subject: 1st commit on 105_haskell

---
 challenge-105/stuart-little/haskell/ch-1.hs | 14 ++++++++++++++
 challenge-105/stuart-little/haskell/ch-2.hs | 22 ++++++++++++++++++++++
 2 files changed, 36 insertions(+)
 create mode 100755 challenge-105/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-105/stuart-little/haskell/ch-2.hs

diff --git a/challenge-105/stuart-little/haskell/ch-1.hs b/challenge-105/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..3f1647091f
--- /dev/null
+++ b/challenge-105/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,14 @@
+#!/usr/bin/env runghc
+
+-- run <script> <exponent> <number>
+
+import System.Environment (getArgs)
+
+nthRoot :: Int -> Int -> Double
+nthRoot xp nr = let rootFloor = head $ dropWhile (\x -> (x+1)^xp <= nr) [1..] in
+  if (rootFloor ^ xp == nr) then fromIntegral rootFloor
+  else exp (((log $ fromIntegral nr))/(fromIntegral xp))
+
+main = do
+  (xp:nr:_) <- getArgs >>= return . map (read::String->Int)
+  print $ nthRoot xp nr
diff --git a/challenge-105/stuart-little/haskell/ch-2.hs b/challenge-105/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..dcfc71a4c2
--- /dev/null
+++ b/challenge-105/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,22 @@
+#!/usr/bin/env runghc
+
+-- run <script> <name>
+
+import Data.Char (toLower,toUpper)
+import System.Environment (getArgs)
+
+ellis :: Char -> String -> String
+ellis c name = (c:"o-") ++ if (c == (toLower $ head name))
+  then (tail name)
+  else (c:"") ++ (tail name)
+
+verse :: String -> String
+verse name = let capName = ((toUpper $ head name):(tail name)) in
+  capName ++ ", " ++ capName ++ ", " ++ (ellis 'b' capName) ++ "\n"
+  ++ "Bonana-fanna " ++ (ellis 'f' capName) ++ "\n"
+  ++ "Fee fi " ++ (ellis 'm' capName) ++ "\n"
+  ++ capName ++ "!" 
+
+main = do
+  (name:_) <- getArgs
+  putStrLn $ verse name
-- 
cgit