aoc23/05/part1.pl

35 lines
1.2 KiB
Perl
Raw Normal View History

2023-12-05 20:42:28 -06:00
answer(Answer) :-
seeds(Seeds),
locations_of_seeds(Seeds, Locations),
min(Locations, Answer).
% locations_of_seeds(Seeds, Locations)
locations_of_seeds([], []).
locations_of_seeds([Seed | RestOfSeeds], [Location | RestOfLocations]) :-
lookup_in(seed_to_soil, Seed, Soil),
lookup_in(soil_to_fertilizer, Soil, Fertilizer),
lookup_in(fertilizer_to_water, Fertilizer, Water),
lookup_in(water_to_light, Water, Light),
lookup_in(light_to_temperature, Light, Temperature),
lookup_in(temperature_to_humidity, Temperature, Humidity),
lookup_in(humidity_to_location, Humidity, Location),
locations_of_seeds(RestOfSeeds, RestOfLocations).
% lookup_in(NamedMap, In, Out)
lookup_in(NamedMap, In, Out) :-
G =.. [NamedMap, Map], G,
lookup(Map, In, Out).
% lookup(Map, In, Out)
lookup([], In, In).
lookup([[OutStart, InStart, Range] | RestOfMap], In, Out) :-
((In >= InStart, In < InStart + Range) ->
Out is OutStart + (In - InStart);
lookup(RestOfMap, In, Out)).
% min(List, Min) finds min value of a list
min([X], X).
min([Item | Rest], Min) :-
min(Rest, MinRest),
(Item < MinRest -> Min is Item; Min is MinRest).