Perl. Developed and tested with Perl 5.38.0.
use v5.38;
use feature q/bareword_filehandles/;
use constant SEED_SOIL => q/seed-to-soil map:/;
use constant SOIL_FERTILIZER => q/soil-to-fertilizer map:/;
use constant FERTILIZER_WATER => q/fertilizer-to-water map:/;
use constant WATER_LIGHT => q/water-to-light map:/;
use constant LIGHT_TEMPERATURE => q/light-to-temperature map:/;
use constant TEMPERATURE_HUMIDITY => q/temperature-to-humidity map:/;
use constant HUMIDITY_LOCATION => q/humidity-to-location map:/;
package SeedSoil{
use Class::Struct;
struct(
map_lines => q/@/,
map => q/%/,
seed => q/$/
);
sub soil{
my($self) = @_;
$self->map(main::build_map($self->map_lines())) if %{$self->map()} == 0;
do{
my($start, $range) = split(/:/, $_);
if($self->seed() >= $start && $self->seed() <= $start + $range){
my $destination = $self->map()->{$_};
return $destination + ($self->seed() - $start);
}
} for keys %{$self->map()};
return $self->seed();
}
}
package SoilFertilizer{
use Class::Struct;
struct(
map_lines => q/@/,
map => q/%/,
soil => q/$/
);
sub fertilizer{
my($self) = @_;
$self->map(main::build_map($self->map_lines())) if %{$self->map()} == 0;
do{
my($start, $range) = split(/:/, $_);
if($self->soil() >= $start && $self->soil() <= $start + $range){
my $destination = $self->map()->{$_};
return $destination + ($self->soil() - $start);
}
} for keys %{$self->map()};
return $self->soil();
}
}
package FertilizerWater{
use Class::Struct;
struct(
map_lines => q/@/,
map => q/%/,
fertilizer => q/$/
);
sub water{
my($self) = @_;
$self->map(main::build_map($self->map_lines())) if %{$self->map()} == 0;
do{
my($start, $range) = split(/:/, $_);
if($self->fertilizer() >= $start && $self->fertilizer() <= $start + $range){
my $destination = $self->map()->{$_};
return $destination + ($self->fertilizer() - $start);
}
} for keys %{$self->map()};
return $self->fertilizer();
}
}
package WaterLight{
use Class::Struct;
struct(
map_lines => q/@/,
map => q/%/,
water => q/$/
);
sub light{
my($self) = @_;
$self->map(main::build_map($self->map_lines())) if %{$self->map()} == 0;
do{
my($start, $range) = split(/:/, $_);
if($self->water() >= $start && $self->water() <= $start + $range){
my $destination = $self->map()->{$_};
return $destination + ($self->water() - $start);
}
} for keys %{$self->map()};
return $self->water();
}
}
package LightTemperature{
use Class::Struct;
struct(
map_lines => q/@/,
map => q/%/,
light => q/$/
);
sub temperature{
my($self) = @_;
$self->map(main::build_map($self->map_lines())) if %{$self->map()} == 0;
do{
my($start, $range) = split(/:/, $_);
if($self->light() >= $start && $self->light() <= $start + $range){
my $destination = $self->map()->{$_};
return $destination + ($self->light() - $start);
}
} for keys %{$self->map()};
return $self->light();
}
}
package TemperatureHumidity{
use Class::Struct;
struct(
map_lines => q/@/,
map => q/%/,
temperature => q/$/
);
sub humidity{
my($self) = @_;
$self->map(main::build_map($self->map_lines())) if %{$self->map()} == 0;
do{
my($start, $range) = split(/:/, $_);
if($self->temperature() >= $start && $self->temperature() <= $start + $range){
my $destination = $self->map()->{$_};
return $destination + ($self->temperature() - $start);
}
} for keys %{$self->map()};
return $self->temperature();
}
}
package HumidityLocation{
use Class::Struct;
struct(
map_lines => q/@/,
map => q/%/,
humidity => q/$/
);
sub location{
my($self) = @_;
$self->map(main::build_map($self->map_lines())) if %{$self->map()} == 0;
do{
my($start, $range) = split(/:/, $_);
if($self->humidity() >= $start && $self->humidity() <= $start + $range){
my $destination = $self->map()->{$_};
return $destination + ($self->humidity() - $start);
}
} for keys %{$self->map()};
return $self->humidity();
}
}
package main{
use Thread;
sub build_map{
my @map_lines = @{shift @_};
my %map;
do{
my($destination_start, $source_start, $range) = split(/\s/, $_);
$map{qq/$source_start:$range/} = $destination_start;
} for @map_lines;
return \%map;
}
open(DATA, q/data/);
my @seeds = split(/\s/, (split(/:\s/, <DATA>))[1]);
my @seed_soil;
my @soil_fertilizer;
my @fertilizer_water;
my @water_light;
my @light_temperature;
my @temperature_humidity;
my @humidity_location;
while(<DATA>){
chop;
my $line;
next if m/^$/;
my $r = SEED_SOIL;
if(m/$r/){
$line = <DATA>;
{
chop($line);
push @seed_soil, $line;
$line = <DATA>;
redo unless $line =~ m/^$/;
}
}
$r = SOIL_FERTILIZER;
if(m/$r/){
$line = <DATA>;
{
chop($line);
push @soil_fertilizer, $line;
$line = <DATA>;
redo unless $line =~ m/^$/;
}
}
$r = FERTILIZER_WATER;
if(m/$r/){
$line = <DATA>;
{
chop($line);
push @fertilizer_water, $line;
$line = <DATA>;
redo unless $line =~ m/^$/;
}
}
$r = WATER_LIGHT;
if(m/$r/){
$line = <DATA>;
{
chop($line);
push @water_light, $line;
$line = <DATA>;
redo unless $line =~ m/^$/;
}
}
$r = LIGHT_TEMPERATURE;
if(m/$r/){
$line = <DATA>;
{
chop($line);
push @light_temperature, $line;
$line = <DATA>;
redo unless $line =~ m/^$/;
}
}
$r = TEMPERATURE_HUMIDITY;
if(m/$r/){
$line = <DATA>;
{
chop($line);
push @temperature_humidity, $line;
$line = <DATA>;
redo unless $line =~ m/^$/;
}
}
$r = HUMIDITY_LOCATION;
if(m/$r/){
$line = <DATA>;
{
chop($line);
push @humidity_location, $line;
$line = <DATA>;
redo unless !$line || $line =~ m/^$/;
}
}
}
my $ss = SeedSoil->new(map_lines => [@seed_soil]);
my $sf = SoilFertilizer->new(map_lines => [@soil_fertilizer]);
my $fw = FertilizerWater->new(map_lines => [@fertilizer_water]);
my $wl = WaterLight->new(map_lines => [@water_light]);
my $lt = LightTemperature->new(map_lines => [@light_temperature]);
my $th = TemperatureHumidity->new(map_lines => [@temperature_humidity]);
my $tl = HumidityLocation->new(map_lines => [@humidity_location]);
my %seed_range;
my @threads;
while(@seeds){
my $seed = shift @seeds;
my $range = shift @seeds;
push @threads, Thread->new(
sub{
my @locations;
for my $i (0 .. $range - 1){
$seed++;
$ss->seed($seed);
$sf->soil($ss->soil());
$fw->fertilizer($sf->fertilizer());
$wl->water($fw->water());
$lt->light($wl->light());
$th->temperature($lt->temperature());
$tl->humidity($th->humidity());
push @locations, $tl->location();
}
return ((sort {$a <=> $b} @locations)[0]);
}
);
}
my @locations;
do{
push @locations, $_ -> join();
} for @threads;
say ((sort {$a <=> $b} @locations)[0]);
}
