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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/usr/bin/perl
#
# Perl Weekly Challenge - 065
#
# Task #1: Digits Sum
#
# https://perlweeklychallenge.org/blog/perl-weekly-challenge-065/
#
use strict;
use warnings;
use Test::More;
use List::Util qw(sum);
is sprintf("%s", join(", ", find_numbers(2, 4))),
"13, 22, 31, 40",
"\$N=2 \$S=4";
is sprintf("%s", join(", ", find_numbers(3, 26))),
"899, 989, 998",
"\$N=3 \$S=26";
is sprintf("%s", join(", ", find_numbers(3, 30))),
"",
"\$N=3 \$S=30";
done_testing;
sub find_numbers {
my ($digits, $sum) = @_;
die "ERROR: Missing digits.\n" unless defined $digits;
die "ERROR: Missing sum.\n" unless defined $sum;
die "ERROR: Invalid digits [$digits].\n" unless ($digits =~ /^[0-9]+$/);
die "ERROR: Invalid sum [$sum].\n" unless ($sum =~ /^[0-9]+$/);
my $start = sprintf("%d", '1' . '0' x ($digits-1));
my $end = sprintf("%d", '9' x $digits);
--$start;
my @numbers;
while (++$start <= $end) {
my @digits = split //, $start;
next if (grep { $_ > $sum } @digits);
my $SUM = sum @digits;
next if ($SUM != $sum);
push @numbers, $start;
}
return @numbers;
}
|
