From 8777ff071f7bb37631baa7b6717ad29961e50911 Mon Sep 17 00:00:00 2001
From: "H.J" <thechairman@thechairman.info>
Date: Wed, 9 Oct 2024 11:36:55 -0400
Subject: sorting by language

---
 aoc2018/day-01/day-01.rkt | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100644 aoc2018/day-01/day-01.rkt

(limited to 'aoc2018/day-01/day-01.rkt')

diff --git a/aoc2018/day-01/day-01.rkt b/aoc2018/day-01/day-01.rkt
deleted file mode 100644
index b18f7c9..0000000
--- a/aoc2018/day-01/day-01.rkt
+++ /dev/null
@@ -1,16 +0,0 @@
-#lang racket
-
-(require advent-of-code
-         threading)
-
-(define deltas
-  (~>> (open-aoc-input (find-session) 2018 1 #:cache #true) port->lines (map string->number)))
-
-;; part 1
-(for/sum ([delta deltas]) delta)
-
-;; part 2
-(for/fold ([seen (set)] [current-frequency 0] #:result current-frequency) ([delta (in-cycle deltas)])
-  (define new-frequency (+ current-frequency delta))
-  #:final (set-member? seen new-frequency)
-  (values (set-add seen new-frequency) new-frequency))
-- 
cgit v1.2.3