From d4bc6bb3f500d037ad5189ecd88b077976b14f32 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 11 Jan 2021 20:25:09 -0500
Subject: 1st commit on 026_haskell

---
 challenge-026/stuart-little/haskell/ch-1.hs |  9 +++++++++
 challenge-026/stuart-little/haskell/ch-2.hs | 11 +++++++++++
 2 files changed, 20 insertions(+)
 create mode 100755 challenge-026/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-026/stuart-little/haskell/ch-2.hs

diff --git a/challenge-026/stuart-little/haskell/ch-1.hs b/challenge-026/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..8c603cdb21
--- /dev/null
+++ b/challenge-026/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,9 @@
+#!/usr/bin/env runghc
+
+-- run <script> <stones_string> <jewels_string>
+
+import System.Environment (getArgs,)
+
+main = do
+  (stones:jewels:_) <- getArgs
+  print $ length $ filter (flip elem stones) jewels
diff --git a/challenge-026/stuart-little/haskell/ch-2.hs b/challenge-026/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..1f14fe583c
--- /dev/null
+++ b/challenge-026/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,11 @@
+#!/usr/bin/env runghc
+
+-- run <script> <space-separated angles in degrees>
+
+import System.Environment (getArgs,)
+import Data.Angle
+import Data.Tuple.Extra ((&&&),)
+
+main = do
+  args <- getArgs
+  print $ degrees $ Radians (uncurry atan2 $ ((sum.(map sine)) &&& (sum.(map cosine))) $ map (\x -> Degrees (read x::Float)) args)
-- 
cgit