blob: 7dab1e155c91afc240410ec7867878a1163b85b7 (
plain)
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
|
#!/usr/bin/perl
#
# Challenge 2: "Write a script to print all possible series of 3 positive
# numbers, where in each series at least one of the number is even
# and sum of the three numbers is always 12. For example, 3,4,5."
#
# My notes: Well defined, looks straightforward by brute forcish search (with
# the third number in the sequence being fixed as 12-first-second of course,
# so only two degrees of freedom).
#
use v5.10; # for "say"
use strict;
use warnings;
#use Data::Dumper;
foreach my $first (1..10)
{
foreach my $second (1..11-$first)
{
my $third = 12 - $first - $second;
next if $third<1;
next if $first%2==1 && $second%2==1 && $third%2==1;
say "$first-$second-$third";
}
}
|
