sorting by language

2 files changed, 0 insertions, 40 deletions

diff --git a/aoc2021/day-01/day-01.pl b/aoc2021/day-01/day-01.pl
deleted file mode 100644
index d3c3fa7..0000000
--- a/aoc2021/day-01/day-01.pl
+++ /dev/null
@@ -1,20 +0,0 @@
-:- use_module(library(yall)).
-:- use_module(library(apply)).
-
-get_data(Result) :- 
-    setup_call_cleanup(open("day-01/input.txt", read, In),
-        (read_string(In, _, Str),
-            split_string(Str, "\n", "\s\t\n", Lines),
-            maplist(number_string, Result, Lines)),
-        close(In)).
-
-calculate_diffs(Result, WindowWidth) :-
-    get_data(Xs),
-    length(TrimLeft, WindowWidth), append(TrimLeft, RightSide, Xs),
-    length(TrimRight, WindowWidth), append(LeftSide, TrimRight, Xs),
-    maplist([X, Y, Z]>>(Z is Y - X), LeftSide, RightSide, Diffs),
-    include([X]>>(X > 0), Diffs, Increases),
-    length(Increases, Result).
-
-part1_answer(Result) :- calculate_diffs(Result, 1).
-part2_answer(Result) :- calculate_diffs(Result, 3).
\ No newline at end of file
diff --git a/aoc2021/day-01/day-01.rkt b/aoc2021/day-01/day-01.rkt
deleted file mode 100644
index 48ef158..0000000
--- a/aoc2021/day-01/day-01.rkt
+++ /dev/null
@@ -1,20 +0,0 @@
-#lang racket
-(require advent-of-code
-         threading)
-
-;; part 1
-(define sensor-data
-  (~> (open-aoc-input (find-session) 2021 1 #:cache (string->path "./cache"))
-      (port->list read _)))
-
-(define (count-increases data offset)
-  (for/sum ([x (in-list data)]
-            [y (in-list (drop data offset))]
-            #:when (< x y))
-    1))
-
-(~a "Part 1: " (count-increases sensor-data 1))
-
-;; part 2
-
-(~a "Part 2: " (count-increases sensor-data 3))
\ No newline at end of file