challenge-030/ruben-westerberg/perl5/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env perl
use strict;
use warnings;
use List::Util qw<sum>;

my %s;
for (2,4,6,8,10) {
	my $e=$_;
	my $r=12-$e;
	for (1..$r-1) {
		my @val=sort($e,$_,$r-$_);
		my $key=join ",", @val;
		$s{$key}=\@val if sum(@val) == 12;
	} 
} 

for (sort keys %s) {
	print join(",", @{$s{$_}}),"\n";
}