From 187269407154d73d0c6ae04e9c790e2f1047fe2d Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 11 Jan 2021 10:25:52 -0500
Subject: 1st commit on 023_haskell

---
 challenge-023/stuart-little/haskell/ch-1.hs | 13 +++++++++++++
 challenge-023/stuart-little/haskell/ch-2.hs | 10 ++++++++++
 2 files changed, 23 insertions(+)
 create mode 100755 challenge-023/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-023/stuart-little/haskell/ch-2.hs

diff --git a/challenge-023/stuart-little/haskell/ch-1.hs b/challenge-023/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..cb2f3fde77
--- /dev/null
+++ b/challenge-023/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,13 @@
+#!/usr/bin/env runghc
+
+-- run <script> <difference_order> <space-separated numbers>
+
+{-# LANGUAGE PackageImports #-}
+
+import System.Environment (getArgs,)
+import "ghc" Util (nTimes,)
+
+main = do
+  args <- getArgs
+  let (ord:nrs) = map (read::String->Int) args
+  print $ nTimes ord (\xs -> zipWith (-) (tail xs) xs) nrs
diff --git a/challenge-023/stuart-little/haskell/ch-2.hs b/challenge-023/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..45877d08d5
--- /dev/null
+++ b/challenge-023/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run <script> <number>
+
+import System.Environment (getArgs,)
+import Data.Numbers.Primes (primeFactors,)
+
+main = do
+  (nr:_) <- getArgs
+  print $ primeFactors (read nr::Int)
-- 
cgit