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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#!/usr/bin/env perl
# Write a script to print all possible series of 3 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.
use strict;
use warnings;
use feature 'say';
my $r = join ",", 0..12;
eval==12 && say y/+/,/r while glob "{$r}+{$r}+{$r}";
=begin
perl .\ch-2.pl
0,0,12
0,1,11
0,2,10
0,3,9
0,4,8
0,5,7
0,6,6
0,7,5
0,8,4
0,9,3
0,10,2
0,11,1
0,12,0
1,0,11
1,1,10
1,2,9
1,3,8
1,4,7
1,5,6
1,6,5
1,7,4
1,8,3
1,9,2
1,10,1
1,11,0
2,0,10
2,1,9
2,2,8
2,3,7
2,4,6
2,5,5
2,6,4
2,7,3
2,8,2
2,9,1
2,10,0
3,0,9
3,1,8
3,2,7
3,3,6
3,4,5
3,5,4
3,6,3
3,7,2
3,8,1
3,9,0
4,0,8
4,1,7
4,2,6
4,3,5
4,4,4
4,5,3
4,6,2
4,7,1
4,8,0
5,0,7
5,1,6
5,2,5
5,3,4
5,4,3
5,5,2
5,6,1
5,7,0
6,0,6
6,1,5
6,2,4
6,3,3
6,4,2
6,5,1
6,6,0
7,0,5
7,1,4
7,2,3
7,3,2
7,4,1
7,5,0
8,0,4
8,1,3
8,2,2
8,3,1
8,4,0
9,0,3
9,1,2
9,2,1
9,3,0
10,0,2
10,1,1
10,2,0
11,0,1
11,1,0
12,0,0
=cut
|
