day3-pt1.raku

use v6.*;
my @input = "day3.input".IO.lines;
#my @input = [ "23191392", "14928318" ];

my $total = 0;
for @input.map(*.comb>>.Int) -> @i {
	my ($idx,$first) = @i.max(:kv);
	my $second;

	if $idx == @i - 1 {
		$second = $first;
		$first = @i[^$idx].max;
	} else {
		$second = @i[($idx+1)..*].max;
	}

	$total += "$first$second".Int;
	print ".";
}

say "\n$total"