initial commit

Day00/Part1.hs

@@ -0,0 +1,7 @@
+import System.IO (readFile)
+import System.Environment (getArgs)
+
+main :: IO ()
+main = do [_, _, file] <- getArgs
+          (_:numbers) <- map (read :: String -> Int) . lines <$> readFile file
+          putStrLn $ show (minimum numbers) ++ " " ++ show (maximum numbers)

clean

@@ -0,0 +1,8 @@
+#!/bin/sh
+day="$1"
+part="$2"
+
+day="$(printf '%02d' "$day")"
+
+rm -f ./run
+rm -f "Day${1}/Part${2}.hi" "Day${1}/Part${2}.o"

inputs/00-1.txt

@@ -0,0 +1,6 @@
+5
+10
+20
+5
+123
+0

prepare

@@ -0,0 +1,10 @@
+#!/bin/sh
+day="$1"
+part="$2"
+
+day="$(printf '%02d' "$day")"
+
+if test -f "Day${day}/Part${part}.hs"; then
+	#stack build
+	stack ghc -- -O3 "Day${day}/Part${part}.hs" -o run
+fi