diff options
| -rw-r--r-- | challenge-030/vyacheslav-volgarev/perl5/ch-2.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-030/vyacheslav-volgarev/perl5/ch-2.pl b/challenge-030/vyacheslav-volgarev/perl5/ch-2.pl new file mode 100644 index 0000000000..978846d43a --- /dev/null +++ b/challenge-030/vyacheslav-volgarev/perl5/ch-2.pl @@ -0,0 +1,16 @@ +use strict; +use warnings; +use v5.10; + +my @numbers; + +for my $first ( 1..10 ) { + + for my $second (1..10) { + my $third = 12 - $first - $second; + push @numbers, join ", ", sort ( $first, $second, $third ) if $third > 0; + } +} +my %uniq; +$, = ";\n"; +say sort grep !$uniq{$_}++, @numbers; |