aoc2022/aoc.m

55 lines
1.2 KiB
Mathematica
Raw Normal View History

2022-12-01 02:56:19 -05:00
:- module aoc.
:- interface.
:- import_module io.
:- pred main(io::di, io::uo) is cc_multi.
:- implementation.
:- import_module basics.
:- import_module string.
:- import_module list.
:- import_module exception.
2022-12-01 17:59:19 -05:00
:- import_module univ.
2022-12-01 02:56:19 -05:00
main(!IO) :- wrap_main(main2, !IO).
2022-12-01 17:59:19 -05:00
:- pred main2(io::di, io::uo) is cc_multi.
2022-12-01 02:56:19 -05:00
main2(!IO) :-
command_line_arguments(Args, !IO),
2022-12-06 00:44:09 -05:00
(if
Args = [DayS, PartS, File],
to_int(DayS, Day),
part(PartS, Part)
then
read_lines_need(File, Lines, !IO),
run_day(Day, Part, Lines, Out),
write_line(univ_value(Out), !IO)
else
die("expected day, part, filename")).
:- pred run_day(int, part, lines, univ).
:- mode run_day(in, in, in, out) is cc_multi.
run_day(Day, Part, Lines, Out) :-
if solution(Day, P) then
P(Part, Lines, Out)
else
die("no solution for day %d", [i(Day)]).
2022-12-01 02:56:19 -05:00
2022-12-05 04:14:29 -05:00
:- type sol == (pred(part, lines, univ)).
2022-12-01 17:59:19 -05:00
:- inst sol == (pred(in, in, out) is cc_multi).
2022-12-01 02:56:19 -05:00
2022-12-01 04:46:26 -05:00
:- import_module day1.
2022-12-02 01:19:46 -05:00
:- import_module day2.
2022-12-03 00:33:45 -05:00
:- import_module day3.
2022-12-04 00:45:57 -05:00
:- import_module day4.
2022-12-05 04:14:29 -05:00
:- import_module day5.
2022-12-06 00:35:24 -05:00
:- import_module day6.
2022-12-01 02:56:19 -05:00
2022-12-06 00:44:09 -05:00
:- pred solution(int::in, sol::out(sol)) is semidet.
solution(1, day1.run).
solution(2, day2.run).
solution(3, day3.run).
solution(4, day4.run).
solution(5, day5.run).
solution(6, day6.run).