challenge-065/javier-luque/raku/ch-1.p6


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

# Test: perl6 ch-1.p6
multi MAIN() { MAIN(2, 4); }

multi MAIN(Int $N, Int $S) {
    # Store the answers
    my @answers;

    # Calculate start and end
    my $start = 10 ** ($N - 1);
    my $end   = (10 ** $N) - 1;

    # Process each number
    for ($start .. $end) -> $i {
    	my @numbers = $i.comb;
    	@answers.push($i)
    		if (@numbers.sum == $S);
    }

    # Display answers
    say @answers.join(", ");
}