35 lines
1.2 KiB
Perl
35 lines
1.2 KiB
Perl
|
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).
|