From 6a8a84ccd0a229ac8e0a74d4b058a1784f439a62 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 22 Feb 2021 16:54:26 -0500
Subject: 1st commit on 101_haskell

---
 challenge-101/stuart-little/haskell/ch-1.hs | 29 +++++++++++++++++++++++++++++
 challenge-101/stuart-little/haskell/ch-2.hs | 12 ++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100755 challenge-101/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-101/stuart-little/haskell/ch-2.hs

diff --git a/challenge-101/stuart-little/haskell/ch-1.hs b/challenge-101/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..ae87883a60
--- /dev/null
+++ b/challenge-101/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,29 @@
+#!/usr/bin/env runghc
+
+-- run <script> <space-separated array entries>
+
+import Data.List (transpose)
+import Data.List.Extra (minimumOn)
+import Data.List.Utils (join)
+import System.Environment (getArgs)
+import Text.Printf (printf)
+
+rtcc :: [[a]] -> [[a]]
+rtcc = reverse . transpose
+
+pck :: Int -> Int -> [a] -> [[a]]
+pck m n as
+  |m==1 = [as]
+  |n==1 = sequence [reverse as]
+  |otherwise = smlr ++ [take n as] where
+     smlr = rtcc $ pck n (m-1) $ drop n as
+
+rowsToPack :: Int -> Int
+rowsToPack n = minimumOn (\x -> abs (x - (div n x))) $ filter ((==0).(mod n)) [1..(div n 2)]
+
+main = do
+  args <- getArgs
+  let ln = length args
+      m = rowsToPack ln
+      n = div ln m
+  putStrLn $ join "\n" $ map (join " ") $ (map.map) (printf "%5s") $ pck m n args
diff --git a/challenge-101/stuart-little/haskell/ch-2.hs b/challenge-101/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..9829a3f483
--- /dev/null
+++ b/challenge-101/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,12 @@
+#!/usr/bin/env runghc
+
+-- run <script> <x1 y1 x2 y2 x3 y3>
+
+import System.Environment (getArgs)
+
+areaTr :: Float -> Float -> Float -> Float -> Float -> Float -> Float
+areaTr x1 y1 x2 y2 x3 y3 = flip (/) 2 $ abs $ ((y3-y1)*(x2-x1) - (y2-y1)*(x3-x1))
+
+main = do
+  (x1:y1:x2:y2:x3:y3:_) <- getArgs >>= return . map (read::String->Float)
+  print $ fromEnum $ (areaTr 0 0 x1 y1 x2 y2) + (areaTr 0 0 x2 y2 x3 y3) + (areaTr 0 0 x3 y3 x1 y1) == (areaTr x1 y1 x2 y2 x3 y3)
-- 
cgit