Initial commit

2017/02/day2.hs

@@ -0,0 +1,20 @@
+#!/usr/bin/env stack
+-- stack --resolver lts-9.14 script
+
+range :: (Ord a, Num a) => [a] -> a
+range l = maximum l - minimum l
+
+divisors :: (Integral a) => [a] -> a
+divisors [] = 0
+divisors (x:xs) =
+  case filter (\y -> (x `mod` y == 0) || (y `mod` x == 0)) xs of
+    [] -> divisors xs
+    y:_ -> if y > x then y `div` x
+           else x `div` y
+
+main :: IO ()
+main = do
+  contents <- getContents
+  let numbers = map (map read . words) $ lines contents :: [[Int]]
+  putStrLn . show $ sum $ map range numbers
+  putStrLn . show $ sum $ map divisors numbers

2017/02/day2.scm

@@ -0,0 +1,27 @@
+#!/usr/bin/csi -script
+
+(use extras)
+
+(define (range xs)
+  (- (apply max xs) (apply min xs)))
+
+(define (find-divisors x xs)
+  (cond ((null? xs) 0)
+	((= 0 (remainder x (car xs))) (/ x (car xs)))
+	((= 0 (remainder (car xs) x)) (/ (car xs) x))
+	(else (find-divisors x (cdr xs)))))
+
+(define (divisors xs)
+  (if (null? xs) 0 
+      (let* ((y (car xs))
+	     (ys (cdr xs))
+	     (first-divisor (find-divisors y ys)))
+	(if (= 0 first-divisor) (divisors ys) first-divisor))))
+
+(define (main)
+  (let* ((contents (read-lines))
+	 (numbers (map (lambda (x) (map string->number x)) (map string-split contents))))
+    (print (apply + (map range numbers)))
+    (print (apply + (map divisors numbers)))))
+
+(main)

2017/02/input.txt

@@ -0,0 +1,16 @@
+790	99	345	1080	32	143	1085	984	553	98	123	97	197	886	125	947
+302	463	59	58	55	87	508	54	472	63	469	419	424	331	337	72
+899	962	77	1127	62	530	78	880	129	1014	93	148	239	288	357	424
+2417	2755	254	3886	5336	3655	5798	3273	5016	178	270	6511	223	5391	1342	2377
+68	3002	3307	166	275	1989	1611	364	157	144	3771	1267	3188	3149	156	3454
+1088	1261	21	1063	1173	278	1164	207	237	1230	1185	431	232	660	195	1246
+49	1100	136	1491	647	1486	112	1278	53	1564	1147	1068	809	1638	138	117
+158	3216	1972	2646	3181	785	2937	365	611	1977	1199	2972	201	2432	186	160
+244	86	61	38	58	71	243	52	245	264	209	265	308	80	126	129
+1317	792	74	111	1721	252	1082	1881	1349	94	891	1458	331	1691	89	1724
+3798	202	3140	3468	1486	2073	3872	3190	3481	3760	2876	182	2772	226	3753	188
+2272	6876	6759	218	272	4095	4712	6244	4889	2037	234	223	6858	3499	2358	439
+792	230	886	824	762	895	99	799	94	110	747	635	91	406	89	157
+2074	237	1668	1961	170	2292	2079	1371	1909	221	2039	1022	193	2195	1395	2123
+8447	203	1806	6777	278	2850	1232	6369	398	235	212	992	7520	7304	7852	520
+3928	107	3406	123	2111	2749	223	125	134	146	3875	1357	508	1534	4002	4417