Exactly three adjacent 3 in lists: Difference between revisions
m
→{{header|Perl}}: fixed bug, added test case
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: fixed bug, added test case) |
|||
Line 443:
[1,4,3,6,7,3,8,3,2],
[1,2,3,4,5,6,7,8,9],
[4,6,8,7,2,3,3,3,1]
[0,3,0,3,3,0,0,0,0]);
my $i = 3; # target value and repetition count
Line 451 ⟶ 452:
my @n = grep $ref->[$_] == $i, 0 .. $#$ref;
print "@$ref => ",
(@n == $i && ($i-1 == grep { $n[$_-1]+1 == $n[$_] } 1..$i-1) ? 'true' : 'false'),
"\n";
}</lang>
Line 461 ⟶ 462:
1 2 3 4 5 6 7 8 9 => false
4 6 8 7 2 3 3 3 1 => true
0 3 0 3 3 0 0 0 0 => false
</pre>
| |||