aboutsummaryrefslogtreecommitdiff
path: root/2021/day-01/day-01.pl
diff options
context:
space:
mode:
Diffstat (limited to '2021/day-01/day-01.pl')
-rw-r--r--2021/day-01/day-01.pl20
1 files changed, 0 insertions, 20 deletions
diff --git a/2021/day-01/day-01.pl b/2021/day-01/day-01.pl
deleted file mode 100644
index d3c3fa7..0000000
--- a/2021/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