Merge pull request #3226 from stuart-little/stuart-little_023_haskell

1st commit on 023_haskell

2 files changed, 23 insertions, 0 deletions

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)