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
109
110
111
|
#!/usr/bin/perl
use warnings;
use strict;
my $NO_X = qr/[^X] [^X] [^X]/;
sub lonely_x {
my ($input) = @_;
my ($previous, @check);
my $count = 0;
my $verify = sub {
for my $ch (@check) {
$count += substr($_[0], $ch - 2, 5) =~ $NO_X;
}
};
open my $in, '<', \$input;
while (<$in>) {
$previous //= ' ' x length;
$verify->($_);
@check = ();
while (/(?=[^X] X [^X])/g) {
my $pos = pos;
push @check, $pos + 2 if substr($previous, $pos, 5) =~ $NO_X;
}
$previous = $_;
}
$verify->(' ' x length $previous);
return $count
}
use Test::More tests => 5;
is lonely_x(<< '__'),
[ O O X ]
[ X O X ]
[ X O O ]
__
0, 'None found';
is lonely_x(<< '__'),
[ O O X ]
[ X O O ]
[ X O O ]
__
1, 'Example 1';
is lonely_x(<< '__'),
[ O O X O ]
[ X O O O ]
[ X O O X ]
[ O X O O ]
__
2, 'Example 2';
is lonely_x(<< '__'),
[ O O O X O X X ]
[ X O O O O O O ]
[ O O O O X O X ]
[ O O X O O O O ]
[ O X O O X O O ]
[ X O O O X O X ]
__
5, 'Five';
is lonely_x(<< '__'),
[ X X X X O X O O O O O X X X X X O O O O O O X X X X O O X X X O O O O X O O ]
[ O O O O O O X O X O X O O O O X O X X X X O O X X X X O X O X O O X O O X X ]
[ O X O X X O O O O O O X X X O O O X O X O X X X O O X O O O O X O X X X O X ]
[ O X O X X O O O O X O X O O X X X O X O O X O X O X O O O X X O X O X X X X ]
[ O O X X X O O O X O X O O X O X O O X X O X O X X O X X O X X O O O O O O X ]
[ O O O X X X O O O O O O O X O X X O X O O O O O X X X O X X O O O O X O O O ]
[ O X X X X X O O X O X X O O X O X X X O X O O X O X O X X O X O O X X X X X ]
[ O O O X O X X X O O X X O X X O X O O O O X O X X X O X X O O X O O O X O O ]
[ X O X X X O O O O O X O X O O O O O O X X O X O O O O O X O O O X O X O O X ]
[ X X X O O O X O O O O X O X O X O X O O X X X O X X O O X X X O O O O O O O ]
[ X O X O X O X O X X O O X X X X X X X X X X X O X X O X O O O X O O O X O O ]
[ X O X O O X O X X O X O X O X X O X X O O X O O O X X X O O O X X X O X O X ]
[ O X O O X X X O X X O O O O O X O O O X O O O X X X X O X X O O X X O O X O ]
[ X O O O X O X X O O X O O O X X O X O O O X X X O X O X O O O X O X O X X O ]
[ X X X X X X X O X O X O O O X O O X O X X X X O O O O X X X O O O X X O X X ]
[ O X X O O X X X O O X X O X O O O X O X O X X O O X O O X O O O O O O O O X ]
[ O X O X O O O X O X O X O O O O X X X O X X O O X X O X X X O O X O X X O O ]
[ O O X O X O O X X X X O O X O X O O X O X O X X X O X X O X X O O X X X O X ]
[ O X X O O O O X O O O O O X X O O X X O X O X O X O O X O O X O X O X O X O ]
[ O X X O X X X X O O X X X X O X O O X O X O X O O O X O X X X X O O X X X X ]
[ O O O O O O O X X X X O O X O O X X O O O X O O X O X O X O O X X O O O O X ]
[ O O X O X O O X X X O O X X X X O O X X X
|
