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

---
 aoc2021/day-01/day-01.pl | 20 --------------------
 1 file changed, 20 deletions(-)
 delete mode 100644 aoc2021/day-01/day-01.pl

(limited to 'aoc2021/day-01/day-01.pl')

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
-- 
cgit v1.2.3