Initial commit

2018/day01/day01.ss

@@ -0,0 +1,23 @@
+(import :gerbil/gambit/ports)
+
+(export main)
+
+(def freqs (with-input-from-file "input.txt" read-all))
+
+(def (repeat n l)
+  (match n
+    (0 [])
+    (else (append l (repeat (1- n) l)))))
+
+(def (main . args)
+  (displayln (apply + freqs))
+
+  (let/cc exit
+    (foldl
+      (lambda (x acc)
+	(let ((new-x (+ x (car acc))))
+	  (if (memq new-x acc)
+	    (begin (displayln new-x) (exit))
+	    (cons new-x acc))))
+      [0]
+      (repeat 200 freqs))))