1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# Solution to Task 2 of The Weekly Challenge 263
# https://theweeklychallenge.org/blog/perl-weekly-challenge-263/#TASK2
# $ perl ch-2.pl
# $VAR1 = [
# [
# 1,
# 4
# ],
# [
# 2,
# 3
# ],
# [
# 3,
# 2
# ]
# ];
use v5.20;
use Data::Dumper;
my $items1 = [[1, 1], [2, 1], [3, 2]];
my $items2 = [[2, 2], [1, 3]];
my %values;
$values{$_->[0]} += $_->[1] for @$items1, @$items2;
my @result = map {[$_ + 0, $values{$_}]} sort {$a <=> $b} keys %values;
say Dumper(\@result);
|
